library(tidyverse)
(madeupdf <- data.frame(asset=letters[1:6],
cost.2018 = (1:6) * 123,
cost.2019 = ((1:6) +5) *100))
(pl <- pivot_longer(madeupdf,
cols=starts_with("cost"),
names_to = "cost_year",
values_to = "cost_value"))
ggplot(data=pl,aes(x =asset, y =cost_value,fill=asset,color=cost_year)) +
geom_col(position = position_dodge2(),size=2) +
scale_color_grey()
