File:Geomcolviridis.png
Jump to navigation
Jump to search
Size of this preview: 800 × 390 pixels. Other resolution: 821 × 400 pixels.
Original file (821 × 400 pixels, file size: 26 KB, MIME type: image/png)
Summary
Modify the example from https://datavizpyr.com/re-ordering-bars-in-barplot-in-r/ to allow filled colors and facet.
library(tidyverse) library(gapminder) library(viridis) theme_set(theme_bw(base_size=16)) pop_df <- gapminder %>% filter(year==2007)%>% group_by(continent) %>% summarize(pop_in_millions=sum(pop)/1e06) pop_df2 <- tibble(class=rbinom(nrow(pop_df), 1, .5), pop_df) pop_df2 <- pop_df2 |> mutate(pop_in_millions = pop_in_millions-1900) pop_df2 %>% ggplot(aes(reorder(continent, pop_in_millions), pop_in_millions))+ geom_col(aes(fill = pop_in_millions)) + labs(x="Continent", title="Descending order Bars in Barplot with reorder()") + coord_flip() + facet_wrap(~class) + scale_fill_viridis()
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 11:50, 30 August 2022 | 821 × 400 (26 KB) | Brb (talk | contribs) | Modify the example from https://datavizpyr.com/re-ordering-bars-in-barplot-in-r/ to allow filled colors and facet. <pre> library(tidyverse) library(gapminder) library(viridis) theme_set(theme_bw(base_size=16)) pop_df <- gapminder %>% filter(year==2007)%>% group_by(continent) %>% summarize(pop_in_millions=sum(pop)/1e06) pop_df2 <- tibble(class=rbinom(nrow(pop_df), 1, .5), pop_df) pop_df2 <- pop_df2 |> mutate(pop_in_millions = pop_in_millions-1900) pop_df2 %>% ggplot(aes... |
You cannot overwrite this file.
File usage
The following page uses this file: