Fatal编程技术网
  • r/
  • R 获取ggplot比例\填充\手动正确（aes颜色）

R 获取ggplot比例\填充\手动正确（aes颜色）

r

R 获取ggplot比例\填充\手动正确（aes颜色）,r,ggplot2,R,Ggplot2,我希望有一个简单的问题，但在查找类似的问题后，我仍然不确定我做错了什么 可复制示例（假数据）： #数据 支付ggplot2中的默认点数无法填充。您使用了color为点上色，因此需要scale\u color\u manual。啊，这就解决了问题，谢谢您的解释和解决方案！另外：您可以对某些点形状使用填充！如果您使用geom\u jitter（aes（fill=title），width=0.33，shape=21）和scale\u fill\u手册一起使用，您会看到的。很有帮助，谢谢Brian！ #

我希望有一个简单的问题，但在查找类似的问题后，我仍然不确定我做错了什么

可复制示例（假数据）：

#数据

支付ggplot2中的默认点数无法填充。您使用了
color
为点上色，因此需要
scale\u color\u manual
。啊，这就解决了问题，谢谢您的解释和解决方案！另外：您可以对某些点形状使用
填充
！如果您使用
geom\u jitter（aes（fill=title），width=0.33，shape=21）
和
scale\u fill\u手册
一起使用，您会看到的。很有帮助，谢谢Brian！

# data
pay <- c(rep(c(100,125,200,225), 6))
title <- c(rep(c("Jr", "Mid", "Sr", "Exec"), 6))
dept <- c(rep(c("Finance", "Acctg", "Sales", "Sales"), 6))

mydf <- data.frame(pay, title, dept)
mycolors <- c("#000000", "#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442")

# plot
myplot <- ggplot(data = mydf, aes(x = dept, y = pay, fill = title)) +
  geom_jitter(aes(color = title), width = 0.33) +
  scale_y_continuous(name="Total Comp $", labels = comma, breaks = seq(0, 250, 50) ) +
  scale_fill_manual(values=mycolors) +
  theme(axis.text.x  = element_text(angle=90, vjust=0.5, hjust = 1, size=10))
myplot