将多个协变量附加到ggplot散点图

Question

我正在制作一个这样的情节：

library(ggplot2)

data.dist = matrix(
  c(10, -10, 10, -10, 10, -10, 10, -10, 10),
  nrow=3,
  ncol=3,
  byrow = TRUE)

hc <- agnes(dist(data.dist), method = "ward", diss = TRUE)
cluster <- cutree(hc, k=2)
xy <- data.frame(cmdscale(dist(data.dist)), factor(cluster))
names(xy) <- c("x", "y", "cluster")
xy$model <- rownames(xy)

ggplot(xy, aes(x, y)) + geom_point(aes(colour=cluster), size=3)

这给了我：

但是，假设我想附加另一个协变量，对数据说一个二进制变量c(1, 0, 1)，并使用一个符号（比如X）显示所有1，并使用所有0另一个符号（比如一个点）。我怎么能做到这一点？

Answer 1

xy<-data.frame(x=rnorm(3),y=rnorm(3),cluster=as.factor(c(1,0,1)),another=as.factor(c(1,1,0)) )
ggplot(xy, aes(x, y,shape=another)) + geom_point(aes(colour=cluster), size=3)