r - 使用 geom_text 在 ggplot2 中的单个方面注释文本

Question

使用以下代码，我在每个方面获取文本，但文本是叠加的:“X1”和“X2”叠加在每个方面。
我的代码中的问题在哪里？

代码:

new_df <- data.frame(f = as.factor(rep(1:2, 15)), x = rnorm(30), y = runif(30))
g <- ggplot(data = new_df, aes(x = x, y = y)) + geom_point() 
g <- g + facet_grid(. ~ f)
g
label_graph <- data.frame(label = c("X1", "X2"))

g <- g + geom_text(data = label_graph,
                    mapping = aes(x = Inf, y = -Inf, label = label),
                    hjust = 1.1, vjust = -1.1)
g

Answer 1

您可以选择直接标记刻面标题而不是标记底角吗？您的示例表明这可能是更好的解决方案。如果这适用于您的实际用例，您只需更改您的 f直接粘贴 X ，你会得到:

new_df <- data.frame(f = as.factor(paste0("X", rep(1:2, 15))), x = rnorm(30), y = runif(30))
g <- ggplot(data = new_df, aes(x = x, y = y)) + geom_point() 
g <- g + facet_grid(. ~ f)
g