如何去除水垢的一部分，表現出更多的GGPLOT2

Question

我上GGPLOT2工作，這是我的樣本數據，

type <- c("A", "B", "C", "D", "E","F") 
point <- c(3,5,8,6,100,9) 
data <- data.frame(type, point) 

ggplot(data, aes(x=type, y=point, fill="type")) + 
    geom_bar(stat="identity") + 
    geom_text(data=data, aes(label=paste(type,"-",point))) 

正如你所看到的，E酒吧太高，所以我想從15-95中刪除y軸，所以我可以看到其他較低類型的差異。

我知道這裏有一些東西，如facet_grid或facet_wrap中的無標度x或y，像我這樣的虛擬情節中的任何類似情況？

Answer 1

編輯添加格式

這是否對你的工作？

library(scales) 
ggplot(data, aes(x=type, y=point, fill="type")) + 
geom_bar(stat="identity") + 
geom_text(data=data, aes(label=paste(type,"-",point))) + 
scale_y_log10(labels = comma) 

EDIT 2

OR

如果你不希望逗號......

ggplot(data, aes(x=type, y=point, fill="type")) + 
geom_bar(stat="identity") + 
geom_text(data=data, aes(label=paste(type,"-",point))) + 
scale_y_log10(labels = format_format(scientific = FALSE))