用ggplot2修正坐标轴余量有可能吗? [英] Is it possible to fix axis margin with ggplot2?
问题描述
我有一个交互式显示,包含一个条形图,显示不同类别的选定统计信息。但是, ggplot2
会根据标签重新调整y轴的宽度,从而使条纹令人讨厌地沿着x方向移动。例子:
library(shiny)
library(dplyr)
library(ggplot2)
shinyApp(
ui = bootstrapPage(
)selectInput('statistic',label ='选择统计量',选项= c('carat','depth','table',' ('plot')
),
server = function(输入,输出){
输出$ plot < - renderPlot(
)钻石%>%
ggplot(aes(x = color,y = get(input $ statistic)))+
geom_bar(stat ='sum')+
theme(text = element_text (size = 20),legend.position =none)
)
}
)
我如何修复y轴标签的宽度? (或相当于绘图面板的宽度?)
我找到了相关的问题,但都是在静态上下文中解决的,例如 with facets 或与 gtable
。
一种方法是提供标签函数,通过用空格填充标签宽度来标准化标签宽度。 函数(标签)sprintf('%15.2f',label)
将填充左边的15个空格并打印带2个小数位的数字值。
library(shiny)
library(dplyr)
library(ggplot2)
shinyApp(
ui = bootstrapPage(
selectInput('statistic',label ='选择统计量',选择= c('克拉','深度','表格','价格')),
plotOutput('plot')
),
server = function(输入,输出){
输出$ plot < - renderPlot(
diamonds%>%
ggplot(aes(x = color,y = get(input $ statistic)))+
scale_y_continuous(labels = function(label)sprintf('%15.2f',label))+
geom_bar stat ='sum')+
theme(text = element_text(size = 20),legend.position =none)
)
}
)
I have an interactive display consisting of a bar chart that shows a selected statistic for different categories. However, ggplot2
readjusts the y-axis width depending on the labels, and hence makes the bars annoyingly move on the x-direction. See exemple:
library(shiny)
library(dplyr)
library(ggplot2)
shinyApp(
ui = bootstrapPage(
selectInput('statistic', label='Chose a statistic', choices=c('carat', 'depth', 'table', 'price')),
plotOutput('plot')
),
server = function(input, output) {
output$plot <- renderPlot(
diamonds %>%
ggplot(aes(x=color, y=get(input$statistic))) +
geom_bar(stat = 'sum') +
theme(text = element_text(size=20), legend.position="none")
)
}
)
How can I fix the width of the y-axis label? (or equivalently the width of the plotting panel?)
I did find related questions, but all were solved in a static context, for instance with facets or with gtable
.
One way would be to provide a label function that normalizes the label widths by padding them with spaces. function(label) sprintf('%15.2f', label)
would pad with 15 spaces on the left and print the numeric value with 2 decimal places.
library(shiny)
library(dplyr)
library(ggplot2)
shinyApp(
ui = bootstrapPage(
selectInput('statistic', label='Chose a statistic', choices=c('carat', 'depth', 'table', 'price')),
plotOutput('plot')
),
server = function(input, output) {
output$plot <- renderPlot(
diamonds %>%
ggplot(aes(x=color, y=get(input$statistic))) +
scale_y_continuous(labels=function(label) sprintf('%15.2f', label)) +
geom_bar(stat = 'sum') +
theme(text = element_text(size=20), legend.position="none")
)
}
)
这篇关于用ggplot2修正坐标轴余量有可能吗?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!