File talk:2019-nCoV Cases.svg
Color Palette
[edit]
Dear creator,
thank you for your effort and updates for this chart. May I suggest to use a sort of 'more calm' color palette for this chart?
For example the colorblind friendly palette provided by http://www.cookbook-r.com/Graphs/Colors_(ggplot2)/#a-colorblind-friendly-palette
Your source code would have been adapted like this:
cbPalette <- c("#999999", "#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2", "#D55E00", "#CC79A7")
mygraph <- ggplot(data = df, aes(x=Date, y=Cases, label=Cases, fill=Location, group=Location)) +
geom_bar(position="stack", stat="identity") +
geom_text(data=subset(df, Cases != 0), position = position_stack(vjust = 0.5), size = fonts_size) +
scale_x_date(date_breaks = "days", labels = date_format("%Y-%m-%d")) +
theme(axis.text.x = element_text(angle = 45, hjust = 1)) +
scale_fill_manual(values = c('Taiwan' = cbPalette[5], 'South Korea' = cbPalette[4], 'Japan'= cbPalette[3], 'Thailand'= cbPalette[2], 'Mainland China'= cbPalette[1]))+
labs(title = "2019-nCoV Global Cases",
subtitle = "As of 2020-01-21",
caption = "Data Source: (listed in the source code)",
x = "Report Date",
y = "Number of Cases",
fill = "Region")
mygraph
SciurusCarolinensis~dewiki (talk) 10:16, 22 January 2020 (UTC)
- @SciurusCarolinensis~dewiki: Thanks! I've updated the colors. :)--Efly (talk) 17:51, 22 January 2020 (UTC)
