R语言 在条形图中添加颜色并集中数据

mnowg1ta  于 2023-01-06  发布在  其他
关注(0)|答案(1)|浏览(221)

我想问一下如何为条形图添加颜色(第一个问题)以及如何将数据值合并为一个(第二个问题)
(第一个问题)我试着使用"col"功能添加颜色,但是颜色没有变化。

ggplot(group.emission, aes(x= reorder(Emission_class, -emission_median), y=emission_median), col= c("lightgreen", "blue", "red", "yellow"), fill=position) + labs(title= "Four main vehicle clusters, by carbon emission") + labs(y="Carbon emision (median)", x = "clusters")

输出:

我也试过geom_bar,但是它有一个我不想使用的图例,因此我想问一下如何在条形图上添加颜色而不创建任何图例。

ggplot(group.emission, aes(x= reorder(Emission_class, -emission_median), y=emission_median, fill= Emission_class)) + geom_bar(stat= "identity")

(第二个问题)
我只想显示前10个变量(x轴),而把其余的归入"其他变量",但我不知道如何做到这一点。

electrical$Brand <- factor(electrical$Brand) %>% fct_infreq ()
ncolor <-length(unique(electrical$Brand))
fcolors <-colorRampPalette(c("dark blue", "white"))
plot(electrical$Brand, las=2, ylim=c(0,30), cex.axis=0.5, cex=0.5, col=fcolors(ncolor))

产出

hmmo2u0o

hmmo2u0o1#

以下是diamonds数据集的示例:

library(tidyverse)
library(RColorBrewer)

# define palette 
sPalette <- c("Purples") %>% 
  sapply(., function(x) brewer.pal(8, name = x)) %>% 
  as.vector

# data wrangling and plot
diamonds %>% 
  mutate(clarity = fct_lump(clarity, n = 5)) %>% 
  count(clarity) %>% 
  mutate(clarity = fct_reorder(clarity, n)) %>% 
  ggplot(aes(clarity, n, fill=clarity)) +
  geom_col(color = "black", show.legend = FALSE) +
  scale_fill_manual(values = sPalette) + 
  scale_x_discrete(limits=rev)+
  theme_minimal()

相关问题