Closed bensoltoff closed 2 years ago
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
#> Warning: package 'ggplot2' was built under R version 3.6.2
#> Warning: package 'tibble' was built under R version 3.6.2
#> Warning: package 'tidyr' was built under R version 3.6.2
#> Warning: package 'purrr' was built under R version 3.6.2
#> Warning: package 'dplyr' was built under R version 3.6.2
library(here)
#> here() starts at /private/var/folders/5g/w1t31h252w31cy0ztgw0bw0c0000gn/T/RtmpBOWZh7/reprex167033eca065b
# import data file
# urban <- read_csv(here("data", "urbanization-state.csv"))
# datapasta::dpasta(head(urban, 10))
tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
"Connecticut", 11.40968,
"Delaware", 11.00999,
"District of Columbia", 13.44057
) %>%
# how do I reorder the bars from largest to smallest?
ggplot(mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /home/romeov/uc-cfss-reproducible-examples-and-git-47116e5
# import data file
urban <- read_csv(here("data", "urbanization-state.csv"))
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> state = col_character(),
#> urbanindex = col_double()
#> )
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
library(tidyverse)
library(here)
#> here() starts at /tmp/RtmpEGBHKv/reprex18309438ea8787
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
"Connecticut", 11.40968,
"Delaware", 11.00999,
"District of Columbia", 13.44057,
"Florida", 11.46484,
"Georgia", 10.55233,
"Guam", 11.08593,
"Hawaii", 11.08621,
"Idaho", 9.593634,
"Illinois", 11.62372,
"Indiana", 10.4105,
"Iowa", 9.593525,
"Kansas", 10.12044,
"Kentucky", 9.789536,
"Louisiana", 10.17518,
"Maine", 9.037091,
"Maryland", 11.71105,
"Massachusetts", 11.83973,
"Michigan", 10.80559,
"Minnesota", 10.45684,
"Mississippi", 8.910859,
"Missouri", 10.20212,
"Montana", 8.470226,
"Nebraska", 10.19912,
"Nevada", 11.76972,
"New Hampshire", 9.917139,
"New Jersey", 12.23565,
"New Mexico", 9.896993,
"New York", 12.55857,
"North Carolina", 10.32481,
"North Dakota", 9.054678,
"Northern Marianas", 11.08593,
"Ohio", 10.87687,
"Oklahoma", 9.93928,
"Oregon", 10.71233,
"Pennsylvania", 11.14623,
"Puerto Rico", 11.57168,
"Rhode Island", 11.72124,
"South Carolina", 10.11142,
"South Dakota", 8.728642,
"Tennessee", 10.19729,
"Texas", 11.17488,
"Utah", 10.96281,
"Vermont", 8.843222,
"Virgin Islands", 11.08593,
"Virginia", 10.90625,
"Washington", 11.11933,
"West Virginia", 9.111112,
"Wisconsin", 10.19131,
"Wyoming", 8.256294
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /tmp/RtmpW1r3yi/reprex17f6f94ee57b32
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
"Connecticut", 11.40968,
"Delaware", 11.00999,
"District of Columbia", 13.44057,
"Florida", 11.46484,
"Georgia", 10.55233,
"Guam", 11.08593,
"Hawaii", 11.08621,
"Idaho", 9.593634,
"Illinois", 11.62372,
"Indiana", 10.4105,
"Iowa", 9.593525,
"Kansas", 10.12044,
"Kentucky", 9.789536,
"Louisiana", 10.17518,
"Maine", 9.037091,
"Maryland", 11.71105,
"Massachusetts", 11.83973,
"Michigan", 10.80559,
"Minnesota", 10.45684,
"Mississippi", 8.910859,
"Missouri", 10.20212,
"Montana", 8.470226,
"Nebraska", 10.19912,
"Nevada", 11.76972,
"New Hampshire", 9.917139,
"New Jersey", 12.23565,
"New Mexico", 9.896993,
"New York", 12.55857,
"North Carolina", 10.32481,
"North Dakota", 9.054678,
"Northern Marianas", 11.08593,
"Ohio", 10.87687,
"Oklahoma", 9.93928,
"Oregon", 10.71233,
"Pennsylvania", 11.14623,
"Puerto Rico", 11.57168,
"Rhode Island", 11.72124,
"South Carolina", 10.11142,
"South Dakota", 8.728642,
"Tennessee", 10.19729,
"Texas", 11.17488,
"Utah", 10.96281,
"Vermont", 8.843222,
"Virgin Islands", 11.08593,
"Virginia", 10.90625,
"Washington", 11.11933,
"West Virginia", 9.111112,
"Wisconsin", 10.19131,
"Wyoming", 8.256294
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /tmp/RtmpyRPUuS/reprex17fb00227e45d2
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
"Connecticut", 11.40968,
"Delaware", 11.00999,
"District of Columbia", 13.44057,
"Florida", 11.46484,
"Georgia", 10.55233,
"Guam", 11.08593,
"Hawaii", 11.08621,
"Idaho", 9.593634,
"Illinois", 11.62372,
"Indiana", 10.4105,
"Iowa", 9.593525,
"Kansas", 10.12044,
"Kentucky", 9.789536,
"Louisiana", 10.17518,
"Maine", 9.037091,
"Maryland", 11.71105,
"Massachusetts", 11.83973,
"Michigan", 10.80559,
"Minnesota", 10.45684,
"Mississippi", 8.910859,
"Missouri", 10.20212,
"Montana", 8.470226,
"Nebraska", 10.19912,
"Nevada", 11.76972,
"New Hampshire", 9.917139,
"New Jersey", 12.23565,
"New Mexico", 9.896993,
"New York", 12.55857,
"North Carolina", 10.32481,
"North Dakota", 9.054678,
"Northern Marianas", 11.08593,
"Ohio", 10.87687,
"Oklahoma", 9.93928,
"Oregon", 10.71233,
"Pennsylvania", 11.14623,
"Puerto Rico", 11.57168,
"Rhode Island", 11.72124,
"South Carolina", 10.11142,
"South Dakota", 8.728642,
"Tennessee", 10.19729,
"Texas", 11.17488,
"Utah", 10.96281,
"Vermont", 8.843222,
"Virgin Islands", 11.08593,
"Virginia", 10.90625,
"Washington", 11.11933,
"West Virginia", 9.111112,
"Wisconsin", 10.19131,
"Wyoming", 8.256294
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /tmp/RtmpyRPUuS/reprex17fb0070d358c6
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
library(tidyverse)
library(here)
#> here() starts at /tmp/Rtmpc6RIB0/reprex17f99128181ce0
urban<-tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
)
ggplot(data = urban, mapping=aes(x=state, y=urbanindex))+
geom_col()+
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /home/duj/uc-cfss-reproducible-examples-and-git-47116e5
# import data file
urban <- read_csv(here("data", "urbanization-state.csv"))
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> state = col_character(),
#> urbanindex = col_double()
#> )
here::here("data", "urbanization-state.csv") %>%
read_csv() %>%
# only use the first six rows, keeps the data frame minimal
head() %>%
datapasta::dpasta()
#>
#> ── Column specification ────────────────────────────────────────────────────────
#> cols(
#> state = col_character(),
#> urbanindex = col_double()
#> )
#> tibble::tribble(
#> ~state, ~urbanindex,
#> "Alabama", 9.605935,
#> "Alaska", 8.735964,
#> "American Samoa", 11.08593,
#> "Arizona", 11.29971,
#> "Arkansas", 9.259444,
#> "California", 12.19028
#> )
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-02-18 by the reprex package (v0.3.0)
library(tidyverse)
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
"Connecticut", 11.40968,
"Delaware", 11.00999,
"District of Columbia", 13.44057,
"Florida", 11.46484,
"Georgia", 10.55233,
"Guam", 11.08593,
"Hawaii", 11.08621,
"Idaho", 9.593634,
"Illinois", 11.62372,
"Indiana", 10.4105,
"Iowa", 9.593525,
"Kansas", 10.12044,
"Kentucky", 9.789536,
"Louisiana", 10.17518,
"Maine", 9.037091,
"Maryland", 11.71105,
"Massachusetts", 11.83973,
"Michigan", 10.80559,
"Minnesota", 10.45684,
"Mississippi", 8.910859,
"Missouri", 10.20212,
"Montana", 8.470226,
"Nebraska", 10.19912,
"Nevada", 11.76972,
"New Hampshire", 9.917139,
"New Jersey", 12.23565,
"New Mexico", 9.896993,
"New York", 12.55857,
"North Carolina", 10.32481,
"North Dakota", 9.054678,
"Northern Marianas", 11.08593,
"Ohio", 10.87687,
"Oklahoma", 9.93928,
"Oregon", 10.71233,
"Pennsylvania", 11.14623,
"Puerto Rico", 11.57168,
"Rhode Island", 11.72124,
"South Carolina", 10.11142,
"South Dakota", 8.728642,
"Tennessee", 10.19729,
"Texas", 11.17488,
"Utah", 10.96281,
"Vermont", 8.843222,
"Virgin Islands", 11.08593,
"Virginia", 10.90625,
"Washington", 11.11933,
"West Virginia", 9.111112,
"Wisconsin", 10.19131,
"Wyoming", 8.256294
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
"Connecticut", 11.40968,
"Delaware", 11.00999,
"District of Columbia", 13.44057,
"Florida", 11.46484,
"Georgia", 10.55233,
"Guam", 11.08593,
"Hawaii", 11.08621,
"Idaho", 9.593634,
"Illinois", 11.62372,
"Indiana", 10.4105,
"Iowa", 9.593525,
"Kansas", 10.12044,
"Kentucky", 9.789536,
"Louisiana", 10.17518,
"Maine", 9.037091,
"Maryland", 11.71105,
"Massachusetts", 11.83973,
"Michigan", 10.80559,
"Minnesota", 10.45684,
"Mississippi", 8.910859,
"Missouri", 10.20212,
"Montana", 8.470226,
"Nebraska", 10.19912,
"Nevada", 11.76972,
"New Hampshire", 9.917139,
"New Jersey", 12.23565,
"New Mexico", 9.896993,
"New York", 12.55857,
"North Carolina", 10.32481,
"North Dakota", 9.054678,
"Northern Marianas", 11.08593,
"Ohio", 10.87687,
"Oklahoma", 9.93928,
"Oregon", 10.71233,
"Pennsylvania", 11.14623,
"Puerto Rico", 11.57168,
"Rhode Island", 11.72124,
"South Carolina", 10.11142,
"South Dakota", 8.728642,
"Tennessee", 10.19729,
"Texas", 11.17488,
"Utah", 10.96281,
"Vermont", 8.843222,
"Virgin Islands", 11.08593,
"Virginia", 10.90625,
"Washington", 11.11933,
"West Virginia", 9.111112,
"Wisconsin", 10.19131,
"Wyoming", 8.256294
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
library(tidyverse)
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
# import data file
ubran <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
#> Error in ggplot(data = urban, mapping = aes(x = state, y = urbanindex)): object 'urban' not found
Created on 2021-07-13 by the reprex package (v2.0.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /tmp/RtmpeQ9yyj/reprex-15f1ed1a290230-legal-mink
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
library(tidyverse)
``` r
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /home/giuseppedicera/uc-cfss-reproducible-examples-and-git-4cced8f
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
library(tidyverse)
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
library(tidyverse)
tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
)
#> # A tibble: 7 x 2
#> state urbanindex
#> <chr> <dbl>
#> 1 Alabama 9.61
#> 2 Alaska 8.74
#> 3 American Samoa 11.1
#> 4 Arizona 11.3
#> 5 Arkansas 9.26
#> 6 California 12.2
#> 7 Colorado 11.2
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
#> Error in ggplot(data = urban, mapping = aes(x = state, y = urbanindex)): object 'urban' not found
Created on 2021-07-13 by the reprex package (v2.0.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /tmp/RtmpQWCSVw/reprex-15e6c76af68c31-ripe-human
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
## Use the script below to generate a reproducible example
## using the reprex package. Use datapasta::dpasta() to create
## `urban` in the script rather than relying on the source
## CSV file. Once you generate it, post it on
## https://github.com/uc-cfss/Discussion/issues/183
library(tidyverse)
library(here)
#> here() starts at /tmp/RtmpvYMBXG/reprex-15e7fa76ef9a42-ok-coqui
# import data file
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
fixed,
library(tidyverse)
urban <- tibble::tribble(
~state, ~urbanindex,
"Alabama", 9.605935,
"Alaska", 8.735964,
"American Samoa", 11.08593,
"Arizona", 11.29971,
"Arkansas", 9.259444,
"California", 12.19028,
"Colorado", 11.15445,
)
# how do I reorder the bars from largest to smallest?
ggplot(data = urban, mapping = aes(x = state, y = urbanindex)) +
geom_col() +
coord_flip()
Created on 2021-07-13 by the reprex package (v2.0.0)
Post your reproducible example here