1

我制作了 13 条平行坐标图线，每个图有 x 条线，每条线有 5 个点。我想改变三件事：

  1. 我想删除从图表下方突出的非常长的垂直 x 轴刻度
  2. 我想将每个图的 x 轴标签更改为“N”、“1”、“2”、“3”、“4”
  3. 我希望为每个图标记 y 轴。目前不是。每个图的最大 y 值是 max(input)。所以，我喜欢四个 y 轴标签：最大值（输入）、3/4 最大值（输入）、1/2 最大值（输入）和 1/4 最大值（输入）（全部取最接近的整数以保持整洁） .
  4. 我想要所有图表的主标题（我现在只称它为“主标题”）

这是我目前的代码：

par(mfrow = c(3,5))
par(mar=c(0.1,0.1,0.1,0.1))
# For each color (cluster) in the random network
for (i in 1:max(net$colors)){
  color = mergedColors[which(net$colors == i)[1]]
  input = countTable[which(net$colors==i),]
  parcoord(input, lty = 1, var.label = FALSE, col = color)
}

其中 str(input) 是 5 个变量的 x 个观测值的 data.frame。

我尝试添加诸如 x.label = c("N","1","2","3","4") 之类的东西，但这不起作用。

编辑：

根据建议，这是一些示例数据。如果我应该包括其他任何内容，请告诉我：

net <- data.frame(colors=as.numeric(sample(1:15, 100, replace = T)))

mycols <- c("brown", "blue", "turquoise", "greenyellow", "red", 
    "pink", "green", "yellow", "magenta", "black","purple",      
    "tomato1","peachpuff","orchid","slategrey")
mergedColors = mycols[net$colors]

countTable <- data.frame(matrix(sample(1:100,100*5, replace=T), 
    ncol=5, dimnames=list(NULL, c("Norm","One","Two","Three","Four"))))
4

1 回答 1

2

好的。我不确定我是否理解请求 1，但这是我目前想出的

library(MASS)

opar<-par(no.readonly=T)
par(mfrow = c(3,5))
par(oma=c(1.2,2,2,0))
par(mar=c(2,2,0.1,0.1))
# For each color (cluster) in the random network
for (i in 1:max(net$colors)){
  color = mergedColors[which(net$colors == i)]
  input = countTable[which(net$colors==i),]
  colnames(input)<-c("N",1:4)
  parcoord(input, lty = 1, var.label = FALSE, col = color)
  axis(2,at=seq(0,1,length.out=5),labels=seq(min(input),max(input), length.out=5))
}
mtext("Main Title",3, outer=T)
par(opar)

样本图

于 2014-05-09T06:21:33.703 回答