我想使用wesanderson包中的"GrandBudapest1“调色板。
我正在处理一个有20个离散值的图表,但调色板只有9种颜色。
文档说我可以用下面的代码创建更多的颜色:
pal <- wes_palette(21, name = "GrandBudapest1", type = "continuous")我想把这个调色板应用到我的曲线图上。我试过一些方法,但都不起作用。
# organize the data
tdf_winners <- read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2020/2020-04-07/tdf_winners.csv')
wins.by.winner_name <-
tdf_winners %>%
count(winner_name) %>%
arrange(-n) %>%
mutate(total_wins = n) %>%
select(-n)
tdf_winners <-
tdf_winners %>%
filter(start_date > ymd("1913-01-01")) %>%
left_join(wins.by.winner_name, by = "winner_name") %>%
mutate(winner_name_lbl = ifelse(total_wins == 1, "One Time Winner",
winner_name))
# create the graphic
gg <-
tdf_winners %>%
ggplot(aes(edition, time_overall, fill = winner_name_lbl)) +
geom_col()
gg +
scale_fill_paletteer_d("wesanderson::GrandBudapest1")我也尝试过gg + scale_fill_paletteer_d(pal)
我如何将我的插值调色板应用到我的曲线图上?
发布于 2020-04-12 04:00:58
有几点。味觉有4个值,而不是9,winner_name_lbl有21个级别。
无论如何,我们可以使用只需使用scale_fill_manual。
library(wesanderson)
library(ggplot2)
ggplot(tdf_winners, aes(x = edition, y = time_overall, fill = winner_name_lbl)) + geom_col() +
scale_fill_manual(values = wes_palette(21, name = "GrandBudapest1", type = "continuous"), name = "") +
theme(legend.position="bottom")

https://stackoverflow.com/questions/61162451
复制相似问题