在ggplot2中将y轴强制为100％

Question

我有一个如下所示的数据框：

df <- data.frame(
group = c(rep("A", 4),rep("B", 4), rep("C", 4)),
word = c(rep(c("first", "first", "second", "second"), 3)), 
emphasis = c(rep(c("normal", "emphatic"), 6)), 
percentage = c(.175, .07, .13, .04, .60, .43, .21, .28, .63, .63, .40, .29))

我想创建一个看起来非常像这样的折线图：

library(ggplot2)
p <- ggplot(df, aes(x = group, y = percentage, group = emphasis, col = emphasis))
p + geom_line() + facet_wrap(~ word)+ scale_y_continuous(label = percent) + geom_point(size=4, shape=21, colour="black") 

我无法弄清楚如何将y比例提高到100％，因为我没有达到那么高的数据点。我认为scale_y_continuous(limits = c(0, 100)可以解决这个问题，但事实并非如此。我想它一定很容易，但我找不到任何如何做的例子。

Answer 1

这将为您提供0％到100％的完整范围，标签百分比为：

library(scales) # For the percent_format() function

scale_y_continuous(labels = percent_format(), limits=c(0,1))