r - 使用 ggplot2 对 y 值进行分组的点图

Question

我有一个类似的数据集

products <- c('Product1', 'Product2', 'Product3', 'Product3', 'Product1', 'Product1')
timestamp <- c(1,2,3,4,5,6)
categories <- c('Category1', 'Category2', 'Category1', 'Category1', 'Category1', 'Category1')
data <- data.frame(timestamp, products, categories)

现在我想像这样用ggplot2画一个点图

ggplot(data, aes(timestamp, products, colour=categories, group=categories)) + geom_point()

生成如下图表

这几乎就是我想要的，但是，我想按照图表中的类别对产品进行分组:

dotchart(data$timestamp, labels=data$products, groups=data$categories, color=data$color)

重要的是为相同的 y 值绘制产品的出现(如在第一个图中)，而不是像在第二个图中那样对每个记录重复它。

Answer 1

您可以尝试像这样创建一个新的 y 列:

type <- paste(data$categories, data$products)
# convert to a factor and sort the levels reverse-alphabetical (so it is in order top-down on the plot)
type <- factor(type, levels=sort(unique(type), dec=T))
data$type <- type
ggplot(data, aes(timestamp, type, colour=categories)) + geom_point()

尽管 y 轴文本的布局不像 dotchart 中那样。

或者您可以将 facet_wrap 用于类似但有点不同的东西(那么不需要 type 东西):

ggplot(data, aes(timestamp, products, colour=categories)) + geom_point() + facet_wrap( ~ categories,ncol=1)

这个提供了更多的类别分离，并且具有显示“空”级别组合(例如类别 2 产品 1)的优势(或者可能是劣势，具体取决于您的意见)。如果您不喜欢，请添加 scales="free_y":

ggplot(data, aes(timestamp, products, colour=categories)) + geom_point() + facet_wrap( ~ categories, ncol=1, scales="free_y")