Register now to learn Fabric in free live sessions led by the best Microsoft experts. From Apr 16 to May 9, in English and Spanish.
Hello,
I've ploted a bar chart with standart error in Rstudio, when addapted it to BPI only the frame was ploted with no bars or se.
please help finding and resolving the problem.
Thanks,
Z
Please find the script and the Rstudio plot:
library(ggplot2) library(Rmisc) library(tidyr) ## Source file Directory ## SourcWD<-"C:\\Users\\Lenovo\\Desktop\\BI-O\\Data Files" setwd(SourcWD) ## Loading File as dataset ## dataset<-read.csv(file="C:\\Users\\Lenovo\\Desktop\\BI-O\\Data Files\\caa.csv", header = TRUE, sep = ",") attach(dataset) dataset # Converting from Wide to Long keycol <- "Type" valuecol <- "Mean" gathercols <- c("CAA.Percent", "CAA.Potency") dataset_long<-gather_(dataset, keycol, valuecol, gathercols) #Summerizing dataset_data <- summarySE(dataset_long, measurevar="Mean","Type") dataset_data #Ploting ggplot(dataset_data, aes(x=Type, y=Mean, fill=Type)) + geom_bar(position=position_dodge(), stat="identity", colour="black", # Use black outlines, size=.3) + # Thinner lines geom_errorbar(aes(ymin=Mean-sd, ymax=Mean+sd), size=1, # Thinner lines width=.3, position=position_dodge(.1)) + xlab(" Test ") + ylab("Results") + scale_fill_hue(name="Test type", # Legend label, use darker colors labels=c("CAA %", "CAA Potency")) + ggtitle("CAA (%) vs. CAA Potency") + scale_y_continuous(breaks=0:20*4) + theme_bw()
and the plot:
Also please find the BPI code:
library(data.table, quietly = TRUE); library(ggplot2, quietly = TRUE); library(tidyr, quietly = TRUE); library(Rmisc, quietly = TRUE); attach(dataset) #dataset$Batch <- factor(dataset$Batch) keycol <- "Type" valuecol <- "Mean" gathercols <- c("CAA.Percent", "CAA.Potency") dataset_long<-gather_(dataset, keycol, valuecol, gathercols) dataset_data <- summarySE(dataset_long, measurevar="Mean","Type") ggplot(dataset_data, aes(x=Type, y=Mean, fill=Type)) + geom_bar(position=position_dodge(), stat="identity", colour="black", # Use black outlines, size=.3) + # Thinner lines geom_errorbar(aes(ymin=Mean-sd, ymax=Mean+sd), size=.5, # Thinner lines width=.3, position=position_dodge(.9)) + xlab(" Test ") + ylab("Results") + scale_fill_hue(name="Test type", # Legend label, use darker colors labels=c( "CAA %","CAA Potency")) + ggtitle("CAA (%) vs. CAA Potency") + scale_y_continuous(breaks=0:20*4) + theme_bw()
and the empty plot:
@ZviR can you also provide csv file or sample data so that I can troubleshoot your issue.
Batch CAA Percent CAA Potency R15 78 110 R16 79 114 R17 92 123 R19 74 109 R21 76 107 R24 61 84 R25 65 90 R26 66 94 R27 80 102
Thanks,
Z
Covering the world! 9:00-10:30 AM Sydney, 4:00-5:30 PM CET (Paris/Berlin), 7:00-8:30 PM Mexico City
Check out the April 2024 Power BI update to learn about new features.
User | Count |
---|---|
111 | |
96 | |
80 | |
68 | |
59 |
User | Count |
---|---|
150 | |
119 | |
104 | |
87 | |
67 |