减少 r 中 ggplot2 中 x 轴值的小数位数

Question

I am learner of R so excuse me for mistakes. I am having a dataframe

QCVNTO=structure(list(O = c(1.34242268082221, 0.903089986991944, 2.55870857053317, 
2.40823996531185, 1.65321251377534, 0.903089986991944, 1.20411998265592, 
1.20411998265592, 1.20411998265592, 0.903089986991944, 0.903089986991944, 
1.65321251377534, 1.34242268082221, 1.04139268515823, 0.903089986991944, 
1.34242268082221, 1.34242268082221, 3.01029995663981, 1.34242268082221, 
1.34242268082221, 1.80617997398389, 0.903089986991944, 0.903089986991944, 
1.34242268082221, 1.34242268082221, 1.65321251377534, 1.20411998265592, 
1.04139268515823, 1.04139268515823, 1.65321251377534, 1.34242268082221, 
1.65321251377534, 0.903089986991944, 0.903089986991944, 0.903089986991944, 
0.903089986991944, 1.34242268082221, 1.34242268082221, 1.04139268515823, 
0.903089986991944, 0.903089986991944, 0.903089986991944, 1.95424250943932, 
0.903089986991944, 0.903089986991944, 1.80617997398389, 1.34242268082221, 
1.50514997831991, 1.34242268082221, 2.25767857486918, 1.80617997398389, 
1.95424250943932, 2.10720996964787, 1.50514997831991, 1.50514997831991, 
1.50514997831991, 1.50514997831991, 1.50514997831991, 1.95424250943932, 
1.95424250943932, 1.34242268082221, 1.50514997831991, 1.50514997831991, 
2.40823996531185, 1.65321251377534, 1.65321251377534, 1.50514997831991, 
1.50514997831991, 1.50514997831991, 1.80617997398389, 1.50514997831991, 
1.50514997831991, 1.80617997398389, 1.50514997831991, 1.50514997831991, 
1.34242268082221, 1.34242268082221, 1.50514997831991, 2.55870857053317, 
1.65321251377534, 1.80617997398389, 2.10720996964787, 1.80617997398389, 
1.80617997398389, 1.65321251377534, 3.01029995663981, 1.65321251377534, 
2.40823996531185, 1.80617997398389, 1.80617997398389, 1.65321251377534, 
2.40823996531185, 1.80617997398389, 1.04139268515823, 1.65321251377534, 
1.80617997398389, 2.40823996531185, 1.65321251377534, 3.01029995663981, 
1.95424250943932, 1.80617997398389, 1.80617997398389, 1.50514997831991, 
2.10720996964787, 1.65321251377534, 1.80617997398389, 1.50514997831991, 
1.80617997398389, 2.70926996097583, 1.65321251377534, 1.95424250943932, 
2.25767857486918, 2.10720996964787, 1.65321251377534, 1.80617997398389, 
1.80617997398389, 1.50514997831991, 1.80617997398389, 0.903089986991944, 
3.01029995663981, 2.55870857053317, 1.04139268515823, 1.80617997398389
), ProtectionStatus = c(1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 1, 0, 
0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 
0, 1, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 
0, 1, 1, 0, 1)), .Names = c("O", "ProtectionStatus"), row.names = c(NA, 
-123L), class = "data.frame")

Then i have calculated the freq of protectionstatus for each 'O'class using the code

df=as.data.frame(xtabs(~ ProtectionStatus + O, data = QCVNTO))

Then I have plotted stacked percentage bar plot showing percentage bar of Protection Status of each 'O' class using ggplot

ggplot(df,aes(x = O, y = Freq, fill = ProtectionStatus)) +  
geom_bar(position = "fill",stat = "identity") +  
scale_y_continuous(labels = percent, breaks = seq(0,1,by=0.1))+  
labs(title = "Log 10SN50 Vs Percentage of Protection", y = "Percentage of Protection", x = "Log 10SN50")

I have 3 questions after this step.

1.The resulting plot is having x-axis digits overlapping. can any one show me how to reduce the number of decimals to 2 in x axis?

2. I need to show the percentages inside the bar.

3. I need to show in top of each bar the number of oberservations/count for each 'O'class. I have read How to center stacked percent barchart labels [want to create plot as answered by [eipi10][1] and tried with this code

   df.summary = QCVNTO %>% group_by(O) %>% + summarise(ProtectionStatus = count(ProtectionStatus)) %>% mutate(percent = ProtectionStatus/sum(ProtectionStatus), pos = cumsum(percent) - 0.5*percent) ggplot(df.summary,aes(x=QCVNTO$O,QCVNTO$ProtectionStatus, function(x)+sum(x)),y=percent,fill=Category) + geom_bar(stat='identity', width = .7, colour="black", lwd=0.1) + geom_text(aes(label=ifelse(percent >= 0.07, paste0(sprintf("%.0f", percent*100),"%"),""),y=pos), colour="white") + coord_flip() + scale_y_continuous(labels = percent_format()) + labs(y="", x="")

but it shows the error Aesthetics must be either length 1 or the same as the data (2): x, y.

I really thank you all for providing your valuable time in reading this question.

Answer 1

Given

p <- ggplot(df,aes(x = O, y = Freq, fill = ProtectionStatus)) +  
  geom_bar(position = "fill",stat = "identity") +  
  scale_y_continuous(labels = scales::percent, breaks = seq(0,1,by=0.1))+  
  labs(title = "Log 10SN50 Vs Percentage of Protection", y = "Percentage of Protection", x = "Log 10SN50")

you could do

library(scales)
p + geom_text(
    aes(y = Freq, label = ifelse(Freq<1&Freq>0, percent(Freq), NA)),
    data=transform(df, Freq=Freq/ave(Freq, O, FUN=sum)),
    position = position_stack(vjust = 0.5)) + 
  geom_text(aes(y=1, label = with(df, ave(Freq, O, FUN=sum))), vjust=-.5) +
  scale_x_discrete(labels = function(x) round(as.numeric(x), digits=2))