R- ggplot geom_dotplot形状选项

Question

我想使用geom_dotplot根据点的形状来区分两个不同的变量(而不是文档中建议的颜色)。例如：

library(ggplot2)
set.seed(1)
x = rnorm(20)
y = rnorm(20)
df = data.frame(x,y)
ggplot(data = df) + 
   geom_dotplot(aes(x = x), fill = "red") + 
   geom_dotplot(aes(x=y), fill = "blue")

即区分下面示例中的x和y

​

​

我想把所有的x都设为点，y设为三角形。

这个是可能的吗？谢谢!

Answer 1

你也许可以使用geom_dotplot加上base R的条形图函数来拼凑出与你想要的东西类似的东西。

#Save the dot plot in an object.

dotplot <- ggplot(data = df) +
geom_dotplot(aes(x = x), fill = "red") +
geom_dotplot(aes(x=y), fill = "blue")

#Use ggplot_build to save information including the x values.
dotplot_ggbuild <- ggplot_build(dotplot)

main_info_from_ggbuild_x <- dotplot_ggbuild$data[[1]]
main_info_from_ggbuild_y <- dotplot_ggbuild$data[[2]]

#Include only the first occurrence of each x value.

main_info_from_ggbuild_x <- 
main_info_from_ggbuild_x[which(duplicated(main_info_from_ggbuild_x$x) == FALSE),]

main_info_from_ggbuild_y <-
main_info_from_ggbuild_y[which(duplicated(main_info_from_ggbuild_y$x) == FALSE),]

#To demonstrate, let's first roughly reproduce the original plot.

stripchart(rep(main_info_from_ggbuild_x$x,
times=main_info_from_ggbuild_x$count),
pch=19,cex=2,method="stack",at=0,col="red")      

stripchart(rep(main_info_from_ggbuild_y$x,
times=main_info_from_ggbuild_y$count),
pch=19,cex=2,method="stack",at=0,col="blue",add=TRUE)

​

​

#Now, redo using what we actually want.
#You didn't specify if you want the circles and triangles filled or not. 
#If you want them filled in, just change the pch values.

stripchart(rep(main_info_from_ggbuild_x$x,
times=main_info_from_ggbuild_x$count),
pch=21,cex=2,method="stack",at=0)

stripchart(rep(main_info_from_ggbuild_y$x,
times=main_info_from_ggbuild_y$count),
pch=24,cex=2,method="stack",at=0,add=TRUE)

​

​