ggplot2面设置打印颜色
ggplot2面设置打印颜色
提问于 2017-07-23 03:13:15
不确定title是否恰当地解释了我的问题:使用facet wraps，我有一个图，它是其他图的摘要，这导致该图在我绘制颜色的变量上具有更高的值。因此，所有其他绘图(主要)只显示一种颜色：Example graph。
我希望着色更多地依赖于非汇总图形，而我并不关心汇总图形是否因为包含较高的值而最终只显示一种颜色(虽然较低的值应该仍然显示适当的颜色)。感谢您的帮助。
示例代码：
library(gdata)
library(viridis)
library(ggplot2)
summary <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 15, max = 200))
dat2 <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 0, max = 30))
dat3 <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 0, max = 30))
dat4 <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 0, max = 30))
dat <- combine(summary, dat2, dat3, dat4)
p <- ggplot(dat, aes(x = x, y = y)) +
geom_point(aes(color = z)) +
scale_color_viridis(option = "magma") +
theme(panel.background = element_rect(fill = "grey93"),
strip.background = element_blank(),
panel.grid = element_blank(),
panel.border = element_rect(fill = NA, colour = "black", size = 0.5, linetype = "solid"))`
p1 <- p + facet_wrap(~source)回答 1
Stack Overflow用户
回答已采纳
发布于 2017-07-23 03:51:11
summary <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 15, max = 200))
dat2 <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 0, max = 30))
dat3 <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 0, max = 30))
dat4 <- data.frame(x = 1:15, y = runif(15), z = runif(15, min = 0, max = 30))
dat <- combine(summary, dat2, dat3, dat4)
dat_ <- subset(dat, source != "summary")
cut_off <- 70 # adjust here where you want the cut-off of z values to be.
summary2 <- subset(dat, source == "summary" & z < cut_off)
p <- ggplot(dat_, aes(x = x, y = y)) +
geom_point(aes(color = z)) +
geom_point(data = summary2, aes(col = z)) +
scale_color_viridis(option = "magma") +
theme(panel.background = element_rect(fill = "grey93"),
strip.background = element_blank(),
panel.grid = element_blank(),
panel.border = element_rect(fill = NA, colour = "black", size = 0.5, linetype = "solid"))
p1 <- p + facet_wrap(~source)
summary3 <- subset(dat, source == "summary" & z >= cut_off)
p1 + geom_point(data = summary3, col = "red") # adjust the color aesthetic of the highest summary graph points here.所以你将看到的是，在汇总图中z值大于或等于70的汇总数据颜色为“红色”，因此它们与绿色岩浆尺度形成对比。(尝试使用“白色”，它的对比度也很好)。在汇总图中，z值小于70的所有汇总数据观测值将遵循与其他三个图相同的色标。降低cut_off变量(当前设置为70)以在dat2、dat3和dat4图形中获得更多颜色。
这就是你一直在寻找的确切答案。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/45258246
复制相关文章
相似问题
腾讯云开发者
