ggplot2包含不同图例的点和线

Question

以下代码

p <- ggplot()+
  geom_point(aes(v3,v2,color=factor(v1)),myData)+
  scale_colour_manual(values = gradient,name="Property A")+ 
  xlab("X Values")+
  ylab("Y Values")+
  theme(legend.position="bottom")

生成此图，其中点由属性A分隔 我想连接共享另一个属性B的点。它应该看起来像这样：

我已经尝试添加

了

geom_line(aes(v3,v2,color=factor(v4)),myData)

但是使用这种方法，线和点将被识别为单个对象，这会导致图例出现问题。

编辑：myData的dput（）

structure(list(v1 = c(1L, 1L, 1L, 2L, 2L, 2L), v2 = c(8348.97159577052, 
7681.30540986381, 6826.40361652663, 10795.9750463179, 10765.5654460646, 
9444.74166746195), v3 = c(0.349130695948487, 0.338453160875985, 
0.319725370654182, 0.621362929529391, 0.619078094211563, 0.616495725056279
), v4 = c(0.995, 0.95, 0.9, 1, 0.995, 0.99)), .Names = c("v1", 
"v2", "v3", "v4"), row.names = c(NA, 6L), class = "data.frame")

Answer 1

使用@ kitman0804的评论，您还可以向linetype = factor(v4)

添加aes()

p <- ggplot()+
  geom_point(aes(v3,v2,color=factor(v1)),myData)+
  scale_colour_manual(values = c(1,2,3,4,5,6),name="Property A")+  
  scale_linetype_discrete(name = "Property B") + 
  xlab("X Values")+
  ylab("Y Values")+
  theme(legend.position="bottom")
p + geom_line(aes(v3, v2, group=factor(v4), linetype = factor(v4)), myData)

更新：添加注释代替不同的线型

首先，使用此函数创建一个data.frame，其中包含所有最小（或最大）值。您还可以使用adjustx和adjusty参数调整值的x和y位置。

xyForAnnotation <- function(data, xColumn, yColumn, groupColumn, 
                            min = TRUE, max = FALSE, 
                            adjustx = 0.05, adjusty = 100) {
  xs <- c()
  ys <- c()
  is <- c()
  for (i in unique(data[ , c(as.character(groupColumn))])){
    tmp <- data[data[, c(groupColumn)] == i,]
    if (min){
      wm <- which.min(tmp[, c(xColumn)])
      tmpx <- tmp[wm, c(xColumn)]
      tmpy <- tmp[wm, c(yColumn)]
    }
    if (max){
      wm <- which.max(tmp[, c(xColumn)])
      tmpx <- data[wm, c(yColumn)]
      tmpy <- data[wm, c(yColumn)]
    }

    xs <- c(xs, tmpx)
    ys <- c(ys, tmpy)
    is <- c(is, i)
  }
  df <- data.frame(lab = is, x = xs, y = ys)
  df$x <- df$x + adjustx
  df$y <- df$y + adjusty
  df
}

df <- xyForAnnotation(myData, "v3", "v2", "v4")

p <- ggplot()+
  geom_point(aes(v3,v2,color=factor(v1)),myData)+
  scale_colour_manual(values = c(1,2,3,4,5,6, 7, 8, 9),name="Property A")+  
  scale_linetype_discrete(guide = F) + 
  xlab("X Values")+
  ylab("Y Values")+
  theme(legend.position="bottom") + 
  geom_line(aes(v3, v2, group=factor(v4)), myData)
p + annotate("text", label = as.character(df$lab), x = df$x, y = df$y)

情节如下：

如上所述，您可以调整注释的位置。