blocks|key|22513|text|首先，我想指出的是，由于y轴值的不同，绘图可能会误导。观众的注意力将主要集中在直方图上，而不是值上。因此，我强烈建议在所有地块上固定y轴。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|22514|library(ggplot2)
library(gridExtra)
library(stringr)

#+Generate+plots+
#+For+each+Species+in+iris+dataset+-+generate+a+histogram+of+the+Petal's+length
plots+=+lapply(levels(iris$Species),+
+++++++++++++++function(spec){
+++++++++++++++++ggplot(iris[iris$Species+==+spec,+],+aes(Petal.Length))+%2B+
+++++++++++++++++++geom_histogram()+%2B+
+++++++++++++++++++ggtitle(spec)
+++++++++++++++})

#+Show+plots+side+by+side+
grid.arrange(grobs+=+plots,+nrow+=+1,+ncol+=+3,+top+=+"Base\n\n")|code-block|syntax|javascript|22515|​|22516|📷|atomic|offset|length|22517|22518|。|22519|22520|#+Solution+1+(recommended)+-+Set+the+same+y-axis+range+for+all+the+plots+
alignLimits+=+function(plotsList){
++#+Extract+limits+of+y-axis+for+each+plot
++y.limits+=+sapply(plotsList,+function(.){layer_scales(.)$y$range$range})
++y.min+=+min(y.limits[1,])+#+Minimum+of+all+the+ranges
++y.max+=+max(y.limits[2,])+#+Maximum+of+all+the+ranges+

++#+Apply+new+limits+for+each+plot
++return(lapply(plotsList,+
++++++++++++++++function(.){.+%2B+coord_cartesian(ylim=c(y.min,+y.max))}))
}

#+Align+limits+of+original+plots+and+display
plots.limits+=+alignLimits(plots)
grid.arrange(grobs+=+plots.limits,+nrow+=+1,+ncol+=+3,+top+=+"Aligned+limits\n\n")|22521|22522|22523|22524|22525|22526|但是，如果您选择其他方式，我会使用空格填充轴标签：|22527|#+Use+whitespaces+to+pad+
alignLables+=+function(plotsList){
++#+Extract+labels+of+y-axis
++#+Note:+Don't+use+the+as.character+on+the+maximum+limit,+
++#+++++++as+decimal+places+in+labels+may+increase+the+character+count+
++y.labels+=+lapply(plotsList,+function(.){ggplot_build(.)$layout$panel_ranges[[1]]$y.labels})+

++#+Calculate+the+maximum+number+of+characters+for+each+plot's+labels
++maxChars+=+sapply(y.labels,+function(.){max(nchar(.))})

++#+Define+a+function+that+would+space-pad+the+labels+and+apply
++format.labels+=+function(label){str_pad(label,+max(maxChars),+pad+=+"+")}
++return(lapply(plotsList,+function(.){return(.+%2B+scale_y_continuous(labels+=+format.labels))}))
}

#+Align+labels+of+original+plots+and+display
plots.labels+=+alignLables(plots)
grid.arrange(grobs+=+plots.labels,+nrow+=+1,+ncol+=+3,+top+=+"Aligned+labels\n\n")|22528|22529|22530|22531|如果有什么不清楚的地方，请随时询问。|22532|entityMap|0|IMAGE|mutability|IMMUTABLE|imageUrl|https://ask.qcloudimg.com/http-save/yehe-900000/9b1023073ecae9297430a05b6d48d1c0.jpeg|imageAlt|1|https://ask.qcloudimg.com/http-save/yehe-900000/a057dd2e1aae5bf334a7424dca1bb3b3.jpeg|2|https://ask.qcloudimg.com/http-save/yehe-900000/f108e2ab72d94850e465ff489896cfb0.jpeg^0|0|0|0|0|1|0|0|0|0|0|0|0|0|1|1|0|0|0|0|0|0|0|0|1|2|0|0|0^^$0|@$1|2|3|4|5|6|7|1K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|1L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|1M|8|@]|9|@]|A|$]]|$1|I|3|J|5|K|7|1N|8|@]|9|@$L|1O|M|1P|1|1Q]]|A|$]]|$1|N|3|H|5|6|7|1R|8|@]|9|@]|A|$]]|$1|O|3|P|5|6|7|1S|8|@]|9|@]|A|$]]|$1|Q|3|P|5|6|7|1T|8|@]|9|@]|A|$]]|$1|R|3|S|5|D|7|1U|8|@]|9|@]|A|$E|F]]|$1|T|3|H|5|6|7|1V|8|@]|9|@]|A|$]]|$1|U|3|J|5|K|7|1W|8|@]|9|@$L|1X|M|1Y|1|1Z]]|A|$]]|$1|V|3|H|5|6|7|20|8|@]|9|@]|A|$]]|$1|W|3|P|5|6|7|21|8|@]|9|@]|A|$]]|$1|X|3|-4|5|6|7|22|8|@]|9|@]|A|$]]|$1|Y|3|Z|5|6|7|23|8|@]|9|@]|A|$]]|$1|10|3|11|5|D|7|24|8|@]|9|@]|A|$E|F]]|$1|12|3|H|5|6|7|25|8|@]|9|@]|A|$]]|$1|13|3|J|5|K|7|26|8|@]|9|@$L|27|M|28|1|29]]|A|$]]|$1|14|3|H|5|6|7|2A|8|@]|9|@]|A|$]]|$1|15|3|16|5|6|7|2B|8|@]|9|@]|A|$]]|$1|17|3|-4|5|6|7|2C|8|@]|9|@]|A|$]]]|18|$19|$5|1A|1B|1C|A|$1D|1E|1F|-4]]|1G|$5|1A|1B|1C|A|$1D|1H|1F|-4]]|1I|$5|1A|1B|1C|A|$1D|1J|1F|-4]]]]

First and foremost, I would like to point out that the plot might be misleading, due to the different y-axis values. The viewers' attention will go mostly to histogram and not the values. 
Therefore, I would highly recommend to fix the y-axis across the all of the plots. 

<pre><code>library(ggplot2)
library(gridExtra)
library(stringr)

# Generate plots 
# For each Species in iris dataset - generate a histogram of the Petal's length
plots = lapply(levels(iris$Species), 
 function(spec){
 ggplot(iris[iris$Species == spec, ], aes(Petal.Length)) + 
 geom_histogram() + 
 ggtitle(spec)
 })

# Show plots side by side 
grid.arrange(grobs = plots, nrow = 1, ncol = 3, top = "Base\n\n")
</code></pre>

<a href="https://i.stack.imgur.com/GHNcO.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/GHNcO.jpg" alt="base_plots"></a>

. 
. 

<pre><code># Solution 1 (recommended) - Set the same y-axis range for all the plots 
alignLimits = function(plotsList){
 # Extract limits of y-axis for each plot
 y.limits = sapply(plotsList, function(.){layer_scales(.)$y$range$range})
 y.min = min(y.limits[1,]) # Minimum of all the ranges
 y.max = max(y.limits[2,]) # Maximum of all the ranges 

 # Apply new limits for each plot
 return(lapply(plotsList, 
 function(.){. + coord_cartesian(ylim=c(y.min, y.max))}))
}

# Align limits of original plots and display
plots.limits = alignLimits(plots)
grid.arrange(grobs = plots.limits, nrow = 1, ncol = 3, top = "Aligned limits\n\n")
</code></pre>

<a href="https://i.stack.imgur.com/gTDn1.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/gTDn1.jpg" alt="limits"></a>

. 

<hr>

However, if you choose otherwise, I would go for padding the axis-labels with white spaces: 

<pre><code># Use whitespaces to pad 
alignLables = function(plotsList){
 # Extract labels of y-axis
 # Note: Don't use the as.character on the maximum limit, 
 # as decimal places in labels may increase the character count 
 y.labels = lapply(plotsList, function(.){ggplot_build(.)$layout$panel_ranges[[1]]$y.labels}) 

 # Calculate the maximum number of characters for each plot's labels
 maxChars = sapply(y.labels, function(.){max(nchar(.))})

 # Define a function that would space-pad the labels and apply
 format.labels = function(label){str_pad(label, max(maxChars), pad = " ")}
 return(lapply(plotsList, function(.){return(. + scale_y_continuous(labels = format.labels))}))
}

# Align labels of original plots and display
plots.labels = alignLables(plots)
grid.arrange(grobs = plots.labels, nrow = 1, ncol = 3, top = "Aligned labels\n\n")
</code></pre>

<a href="https://i.stack.imgur.com/HkQrI.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/HkQrI.jpg" alt="labels"></a>

Feel free to ask if there is anything which is not clear.

blocks|key|123002|text|通过将绘图转换为gtable，很容易设置固定的宽度，请注意这不是一个稳定的界面，因此将来可能会停止工作。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|123003|library(ggplot2)
library(grid)
library(gridExtra)

plot_random+<-+function(){
++ggplot()+%2B
++++labs(y=paste(letters[sample(1:24,+sample(1:3))],+collapse+=+"\n"))
}

pl+<-+replicate(3,+plot_random(),+simplify+=+FALSE)
gl+<-+lapply(pl,+ggplotGrob)
wl+<-+lapply(gl,+function(g)+g$widths[4])
wmax+<-+do.call(unit.pmax,+wl)
gl+<-+lapply(gl,+function(g)+{g$widths[4]+<-+wmax;+g})

grid.arrange(arrangeGrob(grobs+=+pl,+top+=+"Normal+case"),
+++++++++++++arrangeGrob(grobs+=+gl,+top+=+"Standardised+left"))|code-block|syntax|javascript|123004|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

By converting the plot to a gtable it's easy to set a fixed width, beware that this is not a stable interface and therefore may stop working in the future.

<pre><code>library(ggplot2)
library(grid)
library(gridExtra)

plot_random &lt;- function(){
 ggplot() +
 labs(y=paste(letters[sample(1:24, sample(1:3))], collapse = "\n"))
}

pl &lt;- replicate(3, plot_random(), simplify = FALSE)
gl &lt;- lapply(pl, ggplotGrob)
wl &lt;- lapply(gl, function(g) g$widths[4])
wmax &lt;- do.call(unit.pmax, wl)
gl &lt;- lapply(gl, function(g) {g$widths[4] &lt;- wmax; g})

grid.arrange(arrangeGrob(grobs = pl, top = "Normal case"),
 arrangeGrob(grobs = gl, top = "Standardised left"))
</code></pre>

I've made a collection of histograms in ggplot2 and used ImageMagick to animate them into a gif. 
<a href="https://i.stack.imgur.com/ChC4r.gif" rel="noreferrer"><img src="https://i.stack.imgur.com/ChC4r.gif" alt="animated gif of graphs made in ggplot2"></a>
The idea is that the x-axis scale is supposed to be the same in all the graphs but this isn't quite true because the y-axis wiggles around due to the varying widths of the labels. How can I anchor the graph so that all the graphs have exactly the same axis positions?

Here's my ggplot code if it helps:

<pre><code>hist.fn&lt;-function(tier,ddf){
 df&lt;-ddf[ddf$tier==tier,]
 l&lt;-match(tier,levels(df$tier))
 hist.png&lt;-ggplot(df,aes(df$"Premium Adult Individual Age 40" ))+
 geom_histogram()+ 
 labs(title=paste0(tier," premiums in federal exchanges"),
 x ="Premium", y = "Frequency")+
 coord_cartesian(xlim=c(0, 1500))+
 theme_bw()+
 theme(text = element_text(size=14), plot.title = element_text(face="bold"),axis.title.x =element_text(face="bold"),axis.title.y =element_text(face="bold"))
 file=paste0(l,"hist.jpg")

 ggsave(filename=file, plot=hist.png, width=13, height=8, dpi=50)
 return(hist.png)
}
data.df$tier%&gt;% levels %&gt;% lapply(FUN=hist.fn,ddf=data.df) -&gt;histograms.of.tiers 

system("magick -delay 75 *hist.jpg hist.gif")
</code></pre>

How do I set width of y-axis labels in ggplot2

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

我在ggplot2中收集了一组直方图，并使用ImageMagick将它们动画化为gif。我们的想法是，x轴比例在所有图表中都应该是相同的，但这并不完全正确，因为由于标签的宽度不同，y轴会左右摆动。如何锚定图形，使所有图形具有完全相同的轴位置？下面是我的ggplot代码，如果它有用的话：hist.fn<-function...

问如何在ggplot2中设置y轴标签的宽度
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在ggplot2中设置y轴标签的宽度EN