Question

我希望在字母上方插入带有^符号的字母到ggplot标题中，例如p-hat（但已合成）。

我试过了：

x <- seq(1:6)
y <- x^2
z <- rep(c("theta","gamma"),3)
xyz <- data.frame(x,y,z)

ggplot(xyz, aes(x=x, y=y)) + 
  geom_point(aes(colour=z)) + 
  guides(colour = guide_legend(expression(p-hat)))

但这只是字面上的标签。

无法获得清晰的词汇表或信息，一般来说如何修饰R图中的任意罗马字符，除了用于例如法语或西班牙语。有什么想法吗？

Answer 1

R plotmath同时具有hat和widehat功能。如果您想将注释移到右侧，可以根据需要使用

x <- seq(1:6)
y <- x^2
z <- rep(c("theta","gamma"),3)
xyz <- data.frame(x,y,z)

ggplot(xyz, aes(x=x, y=y)) + 
  geom_point(aes(colour=z)) + 
  guides(colour = guide_legend(expression( hat(p) )))

ggplot(xyz, aes(x=x, y=y)) + 
  geom_point(aes(colour=z)) + 
  guides(colour = guide_legend(expression( widehat(p) )))

ggplot(xyz, aes(x=x, y=y)) + 
  geom_point(aes(colour=z)) + 
  guides(colour = guide_legend(expression( ~~~~~~~widehat(p) )))

请参阅?plotmath

Answer 2

尝试使用expression(hat(p))作为guide_legend()的参数。

将重音任意字符插入ggplot图例中

2 个答案: