代码之家 › 专栏 › 技术社区 › user2814482

在散点图中正确使用颜色

scatterpie ggplot2 r

user2814482 · 技术社区 · 7 年前

我想用散馅饼做6个不同的馅饼。有101个不同的类别组成了馅饼(不是所有的馅饼都有101个),所以我想能够区分颜色。

这并没有给我足够的颜色(我只看馅饼就知道了)

ggplot(wholebody_cutLH_wide_t) +
#  annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) +
geom_scatterpie(aes(x=imX, y=imY,r=radius),
            data=wholebody_cutLH_wide_t,     cols=colnames(wholebody_cutLH_wide_t[1:101]),color=NA) +
#scale_color_manual(values=sample(allcolors,101)) +
 scale_x_continuous(expand=c(0,0), lim=c(0,3)) +
scale_y_continuous(expand=c(0,0), lim=c(0,6)) +
theme(legend.position="none",
    panel.background = element_rect(fill = "transparent") # bg of the panel
    , plot.background = element_rect(fill = "transparent") # bg of the plot
    , panel.grid.major = element_blank() # get rid of major grid
    , panel.grid.minor = element_blank(), # get rid of minor grid
    line = element_blank(),
    text = element_blank(),
    title = element_blank()
)

然后,如果我试图手动设置颜色如下,我会得到一个空白屏幕。如果我尝试在散点图(color=sample(allcolors,101))中设置颜色,那么我会得到错误

错误:美学必须为长度1或与数据(2864):颜色相同

allcolors = grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)]
ggplot(wholebody_cutLH_wide_t) +
#  annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) +
geom_scatterpie(aes(x=imX, y=imY,r=radius),
            data=wholebody_cutLH_wide_t, cols=colnames(wholebody_cutLH_wide_t[1:101]),color=NA) +
scale_color_manual(values=sample(allcolors,101)) +
scale_x_continuous(expand=c(0,0), lim=c(0,3)) +
scale_y_continuous(expand=c(0,0), lim=c(0,6)) +
theme(legend.position="none",
    panel.background = element_rect(fill = "transparent") # bg of the panel
    , plot.background = element_rect(fill = "transparent") # bg of the plot
    , panel.grid.major = element_blank() # get rid of major grid
    , panel.grid.minor = element_blank(), # get rid of minor grid
    line = element_blank(),
    text = element_blank(),
    title = element_blank()
 )

1 回复 | 直到 7 年前

user2814482 7 年前

这是最终的工作代码。我不得不将scale\u color\u手动切换到scale\u fill\u手动。

ggplot(wholebody_cutLH_wide_t) +
annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf) +
geom_scatterpie(aes(x=imX, y=imY,r=radius),
            data=wholebody_cutLH_wide_t, cols=colnames(wholebody_cutLH_wide_t)[1:101],color=NA) +
scale_fill_manual(values=sample(allcolors,101)) +
scale_x_continuous(expand=c(0,0), lim=c(0,3)) +
scale_y_continuous(expand=c(0,0), lim=c(0,6)) +
theme(legend.position="none",
    panel.background = element_rect(fill = "transparent") # bg of the panel
    , plot.background = element_rect(fill = "transparent") # bg of the plot
    , panel.grid.major = element_blank() # get rid of major grid
    , panel.grid.minor = element_blank(), # get rid of minor grid
    line = element_blank(),
    text = element_blank(),
    title = element_blank()
)

这是情节

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

3 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

3 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

4 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

4 月前

JBurns · ggplot2 x轴,其中许多天中的每一天都有许多小时。有没有办法将x轴上的日期跨越当天的小时?

4 月前

Jaken · 使用scale_*_steps进行合并时避免重新缩放

4 月前

a_todd12 · ggplot相关矩阵中的颜色完美相关图块

4 月前

a_todd12 · 修复使用带有ggplot的ifelse颜色填充时的图例

4 月前

Victoria Johnson · 如何删除R ggplot中的重复图例

4 月前

mmoore · 创建具有重叠特征的ggplot2地图并配置图例

4 月前