r - 具有不同线条样式和标记的ggplot折线图

Question

我正在尝试在 ggplot2 中创建一个折线图，它结合了某些变量的不同线条样式和其他变量的不同标记。

示例 1 使用不同的线型绘制每个变量的图形，示例 2 使用不同的标记绘制每个变量的图形，而示例 3 使用不同的线条和标记绘制每个变量的图形。

我试图用不同的线型(实线、虚线)绘制 X2 和 X3，然后将 X4 和 X5 绘制为带有不同标记(圆形、方形等)的实线。

有没有办法做到这一点？？

library(ggplot2)
library(reshape2)

set.seed <- 1
df <- data.frame(cbind(seq(1,10,1),matrix(rnorm(100,1,20), 10, 4)))
d <- melt(df, id="X1")

# Example 1: different line styles
ggplot(d, aes(x=X1, y=value, color=variable)) + 
  geom_line(aes(linetype=variable), size=1)

# Example 2: different markers for each line
ggplot(d, aes(x=X1, y=value, color=variable)) + 
  geom_line() + geom_point(aes(shape=variable, size=4))

# Example 3: differnt line styles & different markers (You see this graph below)
ggplot(d, aes(x=X1, y=value, color=variable)) + 
  geom_line(aes(linetype=variable), size=1) +
  geom_point(aes(shape=variable, size=4))

Answer 1

这是一种方法。您可以使用另外两个函数来控制形状和线型。 scale_linetype_manual允许您手动分配线型。同样，scale_shape_manual允许您手动分配所需的任何形状。

# Example 3: differnt line styles & different markers
ggplot(d, aes(x=X1, y=value, color=variable)) + 
geom_line(aes(linetype=variable), size=1) +
geom_point(aes(shape=variable, size=4)) +
scale_linetype_manual(values = c(1,2,1,1)) +
scale_shape_manual(values=c(0,1,2,3))