Работя върху 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
bar е твърде високо, така че искам да премахна y ос от 15-95, така че мога да видя разликата на други по-ниски типове.
Знам, че има нещо като мащаб безплатно x или y в facet_grid
или facet_wrap
, нещо подобно в симулационен сюжет като моя?
Отговори:
3 за отговор № 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
ИЛИ
Ако не искам запетаи ...
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))