[R] Help with staked bar plot values Version 2

[Bill Poling]

Hello

#RStudio Version 1.2.1335
sessionInfo()
# R version 3.6.0 Patched (2019-05-19 r76539) # Platform: x86_64-w64-mingw32/x64 (64-bit) # Running under: Windows 10 x64 (build 17134)


I am still trying to get this stacked bar plot with values incereted in the bars to work.

str(df3)
'data.frame':12 obs. of  4 variables:
 $ Month_Yr             : chr  "2018-01" "2018-02" "2018-03" "2018-04" ...
 $ CurrentBilledAccepted: num  50612538 52140848 75341460 75733565 78990033 ...
 $ CurrentBilled        : num  166049599 152054677 211204320 193905607 215781328 ...
 $ TotalBilled          : num  281806122 258607481 345235833 331032520 379911877 ...

dput(df3)
structure(list(Month_Yr = c("2018-01", "2018-02", "2018-03",
"2018-04", "2018-05", "2018-06", "2018-07", "2018-08", "2018-09",
"2018-10", "2018-11", "2018-12"), CurrentBilledAccepted = c(50612538.37,
52140847.86, 75341460.14, 75733565.33, 78990032.7, 75709569.66,
90937537.58, 88087064.92, 77733110.21, 121863059.73, 118697983.95,
122725876.36), CurrentBilled = c(166049599.06, 152054677.36,
211204320.27, 193905606.94, 215781328.14, 219237895.09, 262944323.08,
238565431.51, 205345173.62, 290686847.52, 273146859.13, 300757011.52
), TotalBilled = c(281806122.24, 258607481.1, 345235832.56, 331032519.52,
379911877.36, 392791354.13, 425577554.8, 412169215.64, 359511992.21,
507625318.05, 463895541.75, 515639239.79)), class = "data.frame", row.names = c(NA,
-12L))

This simple version works:

df3 <- df2[,c(1,4,3,2)]#Reorder the column positions

tbl<-melt(df3,id.vars="Month_Yr")

ggplot(tbl,aes(x=Month_Yr,y=value,fill=variable))+geom_bar(stat='identity')


#When I go to add values to the plot it worked earlier this AM.

Then I reopened RStudio and ran everything up to this point without error and got to this and re-ran and it does not work

#Add values to the plot bars
#https://stackoverflow.com/questions/6644997/showing-data-values-on-stacked-bar-chart-in-ggplot2

tbl<-melt(df3,id.vars="Month_Yr")

str(tbl)

p <- qplot(Month_Yr, variable, data = tbl, geom = "bar", fill = variable, theme_set(theme_bw()))
p1 <- p + geom_text(aes(label = value), size = 3, hjust = 0.5, vjust = 3, position = "stack") +
    theme(axis.text.x = element_text(angle = 45, hjust = 1, vjust = 0.5)) +
    labs(title = "Plot Example")
p1

The error is:
Don't know how to automatically pick scale for object of type function. Defaulting to continuous.
Error: All columns in a tibble must be 1d or 2d objects:
* Column `label` is function

I have no idea what that means?

Can someone help please?

Thank you.

WHP



Confidentiality Notice This message is sent from Zelis. ...{{dropped:13}}