ggplot中有六种以上的形状

Question

我想使用离散颜色绘制具有六组以上数据的不同形状的线条。问题是1）为线条颜色和形状生成了不同的图例，但应该只有一个带有线条颜色和形状的图例，2）在修正线条颜色图例的标题时，颜色会消失。

t=seq(0,360,20)
for (ip in seq(0,10)) {
  if (ip==0) {
    df<-data.frame(t=t,y=sin(t*pi/180)+ip/2,sn=ip+100)
  } else {
    tdf<-data.frame(t=t,y=sin(t*pi/180)+ip/2,sn=ip+100)
    df<-rbind(df,tdf)

  }
}
head(df)

# No plot
# Error: A continuous variable can not be mapped to shape
gp <- ggplot(df,aes(x=t,y=y,group=sn,color=sn,shape=sn))
gp <- gp + labs(title = "Demo more than 6 shapes", x="Theat (deg)", y="Magnitude")
gp <- gp + geom_line() + geom_point()
print(gp)

# No plot
# Error: A continuous variable can not be mapped to shape (doesn't like integers)
gp <- ggplot(df,aes(x=t,y=y,group=sn,color=sn,shape=as.integer(sn)))
gp <- gp + labs(title = "Demo more than 6 shapes", x="Theat (deg)", y="Magnitude")
gp <- gp + geom_line() + geom_point()
print(gp)

# Gives warning about 6 shapes, and only shows 6 shapes, continous sn colors
gp <- ggplot(df,aes(x=t,y=y,group=sn,color=sn,shape=as.factor(sn)))
gp <- gp + labs(title = "Only shows six shapes, and two legends, need discrete colors", 
                x="Theat (deg)", y="Magnitude")
gp <- gp + geom_line() + geom_point()
print(gp)

# This is close to what is desired, but correct legend title and combine legends
gp <- ggplot(df,aes(x=t,y=y,group=sn,color=as.factor(sn),shape=as.factor(sn %% 6)))
gp <- gp + labs(title = "Need to combine legends and correct legend title", x="Theat (deg)", y="Magnitude")
gp <- gp + geom_line() + geom_point()
print(gp)

# Correct legend title, but now the line color disappears
gp <- ggplot(df,aes(x=t,y=y,group=sn,color=as.factor(sn),shape=as.factor(sn %% 6)))
gp <- gp + labs(title = "Color disappeard, but legend title changed", x="Theat (deg)", y="Magnitude")
gp <- gp + geom_line() + geom_point()
gp <- gp + scale_color_manual("SN",values=as.factor(df$sn)) 
print(gp)

# Add color and shape in geom_line / geom_point commands, 
gp <- ggplot(df,aes(x=t,y=y,group=sn))
gp <- gp + labs(title = "This is close, but legend symbols are wrong", x="Theat (deg)", y="Magnitude")
gp <- gp + geom_line(aes(color=as.factor(df$sn))) 
gp <- gp + geom_point(color=as.factor(df$sn),shape=as.factor(df$sn %% 6))
gp <- gp + scale_color_manual("SN",values=as.factor(df$sn)) 
print(gp)

Answer 1

首先，将sn转换为一个因子会更容易。

df$sn <- factor(df$sn)

然后，您需要使用scale_shape_manual指定要使用的形状。

gp <- ggplot(df,aes(x=t, y=y, group=sn,color=sn, shape=sn)) +
             scale_shape_manual(values=1:nlevels(df$sn)) +
             labs(title = "Demo more than 6 shapes", x="Theat (deg)", y="Magnitude") +
             geom_line() + 
             geom_point(size=3)
gp

这应该给你你想要的。您需要使用scale_shape_manual，因为即使使用sn作为因子，ggplot也只会自动添加6个不同的符号。之后，您必须手动指定它们。您可以通过多种方式更改符号。有关如何：http://sape.inf.usi.ch/quick-reference/ggplot2/shape的更多信息，请查看这些页面 http://www.cookbook-r.com/Graphs/Shapes_and_line_types/

Answer 2

对我来说，关于6个形状的错误消息的关键是说Consider specifying shapes manually.的部分。

如果你加入values中的scale_shape_manual，我相信你会得到你想要的。我首先在数据集中将sn作为一个因子。

df$sn = factor(df$sn)

ggplot(df, aes(x = t, y = y, group = sn, color = sn, shape = sn)) +
    geom_point() +
    geom_line() +
    scale_shape_manual(values = 0:10)

当我需要记住哪些数字符合哪些形状时，我会去Cookbook for R site。

编辑上面的示例显示添加11个符号，示例数据集中的符号数相同。您的注释表明sn变量的唯一值比您的示例中的更多。注意在values中使用一长串数字，因为并非所有数字都被定义为符号。

忽略在单个图形中是否有这么多形状是个好主意，您可以使用字母和数字以及符号作为形状。因此，如果您想要73个基于73个级别的因子的独特形状，您可以使用19个符号，所有大写和小写字母以及数字0和1作为您的values。

scale_shape_manual(values = c(0:18, letters, LETTERS, "0", "1"))

Answer 3

如果需要，你可以得到大约一百种不同的形状。 good.shapes是在我的屏幕上呈现的形状数字的向量，没有任何填充参数。

library(ggplot2)
N = 100; M = 1000
good.shapes = c(1:25,33:127)
foo = data.frame( x = rnorm(M), y = rnorm(M), s = factor( sample(1:N, M, replace = TRUE) ) )
ggplot(aes(x,y,shape=s ), data=foo ) +
    scale_shape_manual(values=good.shapes[1:N]) +
        geom_point()