r语言 - 使用 facet_wrap 时无法向geom_text添加条件

Question

我正在尝试使用 ggplot2 在 r 中创建一个图形，我使用 facet_wrap 复制 3 组堆叠条形图以用于不同类型的设置。但是，当我使用 geom_text 仅标记大于 1.5 的值时，我收到此错误：

Error in `$<-.data.frame`(`*tmp*`, "PANEL", value = c(1L, 1L, 1L, 1L,  : 
replacement has 24 rows, data has 16

请告知

这是我的图形代码：

ggplot(data, aes(x = year, y = percent, fill = facility,label = round(percent))) + geom_bar(aes(y = percent, x = year, fill = facility), 
data = data,stat="identity") +
geom_line(aes(x=year, y =percent),linetype="dashed",color="black", position = 'stack',data = data)+
geom_text(data = subset(data,percent>1.5),size = 3, position = position_stack(vjust = 0.5),color="white")+
theme(legend.position="bottom", legend.direction="horizontal",
legend.title = element_blank()) +
scale_y_continuous(labels = dollar_format(suffix = "%", prefix = "")) +
scale_x_continuous(breaks=0:1,
labels=c("2010","2015"))+
labs(x="", y="Percentage") +
ggtitle("Year comparison") +
coord_flip()+
theme(plot.title = element_text(size=20,face="bold",hjust = 0.5))+
facet_wrap(~data$type, ncol = 1, scales = "free")

这是图片...我基本上是在尝试摆脱图片中的标签 0

谢谢！！！

Answer 1

当你做你的facet_wrap()时，你包括了原始数据帧中"类型"(data$type(的完整列，大概有24行长。您希望使用类似于facet_wrap(~ type)的窗体来允许ggplot2将数据动态用于分面。

有点难以解释，但也许很容易在样本数据中玩弄。

行不通

library(tidyverse)
iris %>%
ggplot(aes(Sepal.Length, Sepal.Width, label = Species)) +
geom_point() +
geom_text(data = subset(iris, Sepal.Length > 6)) +
facet_wrap(~ iris$Species)
#> Error in `$<-.data.frame`(`*tmp*`, "PANEL", value = structure(c(1L, 1L, : replacement has 150 rows, data has 61

会工作

iris %>%
ggplot(aes(Sepal.Length, Sepal.Width, label = Species)) +
geom_point() +
geom_text(data = subset(iris, Sepal.Length > 6)) +
facet_wrap(~ Species)