英文:
starting Y axis from preferred number
问题
我有一个类似这样的数据框：
DATA1 <- data.frame(
Percent.houses = c(44, 44.5, 44.7, 45.8, 45.9, 45, 45.4, 45.6, 45.3),
BUILDING.TYPE = c("wood bungalow", "brick bungalow", "glass bungalow", "wood flat", "brick flat", "glass flat", "wood house", "brick house", "glass house"),
STRUCTURAL.MAKEUP = c("wood", "brick", "glass", "wood", "brick", "glass", "wood", "brick", "glass"))
我想要我的y轴从43开始，到53结束（每隔1刻度）。
我已经阅读了以前的问题和解决方案，并尝试了以下内容：
a <- ggbarplot(
DATA1,
x = "BUILDING.TYPE" ,
y = "Percent.houses",
fill = "STRUCTURAL.MAKEUP",
color = "black",
width = 0.5,
sort.by.groups = TRUE,
x.text.angle = 45,
label = TRUE,
label.pos = "in"
) + scale_y_continuous(limits = c(43, 53), breaks = seq(43, 53, by = 1))
a + scale_fill_manual(
"",
breaks = c("wood", "brick", "glass"),
values = c("#009E73", "#D55E00", "#CC79A7"),
labels = c("wood", "brick", "glass")
) + theme(text = element_text(size = 6))
然而，这似乎不会按要求更改y轴。任何帮助将不胜感激。抱歉，我还是很新手。
英文:
I have a data frame like this
DATA1 <- data.frame(
Percent.houses = c(44, 44.5, 44.7, 45.8, 45.9, 45, 45.4, 45.6, 45.3),
BUILDING.TYPE = c("wood bungalow", "brick bungalow", "glass bungalow", "wood flat", "brick flat", "glass flat", "wood house", "brick house", "glass house"),
STRUCTURAL.MAKEUP = c("wood", "brick", "glass", "wood", "brick", "glass", "wood", "brick", "glass"))
I want my y axis to start from 43 and end at 53 (with ticks every 1)
I have read through past questions and solutions, and tried this
a <- ggbarplot(
DATA1,
x = "BUILDING.TYPE" ,
y = "Percent.houses",
fill = "STRUCTURAL.MAKEUP",
color = "black",
width = 0.5,
sort.by.groups = TRUE,
x.text.angle = 45, label = TRUE, label.pos = "in", lab.vjust = -0.2 + scale_y_continuous(limits = c(43, 53), breaks = seq(43, 53, by = 1))
) +
scale_fill_manual(
"",
breaks = c("wood", "brick", "glass"),
values = c("#009E73", "#D55E00", "#CC79A7"),
labels = c("wood", "brick", "glass")
)
a + font("x.text", size = 6)
However, this does not seem to change the y axis as required. Any help will be appreciated. Apologies, I am still very new to R.
答案1
得分: 2
如@zephryl在上面提到的，您需要将scale_y_continuous的调用移出ggbarplot函数调用之外。但您还需要告诉ggplot不要省略在您指定的范围之外的值。由于条形图从零开始，将范围限制在不包括零的范围内将导致这些值被排除在外。您可以通过指定不同的“超出范围”的值函数来覆盖此行为，具体为scales::squish。就像这样：
a <- ggbarplot(
DATA1,
x = "BUILDING.TYPE" ,
y = "Percent.houses",
fill = "STRUCTURAL.MAKEUP",
color = "black",
width = 0.5,
sort.by.groups = TRUE,
x.text.angle = 45,
label = TRUE,
label.pos = "in",
lab.vjust = -0.2
) +
scale_y_continuous(oob = scales::squish,
limits = c(43, 53),
breaks = seq(43, 53, by = 1)) +
scale_fill_manual(
"",
breaks = c("wood", "brick", "glass"),
values = c("#009E73", "#D55E00", "#CC79A7"),
labels = c("wood", "brick", "glass")
)
a + font("x.text", size = 6)
请注意，我已经将代码中的HTML转义字符（如<和"）还原为正常字符。
英文:
As @zephryl mentioned above you need to move the scale_y_continuous call outside the ggbarplot function call. But you also need to tell ggplot not to omit values outside the range you specify. Since the bars start at zero, limiting the range to something that does not include zero will cause those values to be excluded. You can over-ride this behavior by specifying a different function of "out of bounds" values, specifically scales::squish. Like this:
a <- ggbarplot(
DATA1,
x = "BUILDING.TYPE" ,
y = "Percent.houses",
fill = "STRUCTURAL.MAKEUP",
color = "black",
width = 0.5,
sort.by.groups = TRUE,
x.text.angle = 45,
label = TRUE,
label.pos = "in",
lab.vjust = -0.2
) +
scale_y_continuous(oob = scales::squish,
limits = c(43, 53),
breaks = seq(43, 53, by = 1)) +
scale_fill_manual(
"",
breaks = c("wood", "brick", "glass"),
values = c("#009E73", "#D55E00", "#CC79A7"),
labels = c("wood", "brick", "glass")
)
a + font("x.text", size = 6)
答案2
得分: 0
@erikor 是对的，仅仅在 scale_y_continuous() 内设置限制会导致所有的值都被排除。一种解决方法是使用他们演示的 oob 参数。另一种方法是在 coord_cartesian() 中指定 ylim；与 scale_y_continuous() 不同，这会在不移除数据的情况下“缩放”到指定的限制。
library(ggpubr)
a <- ggbarplot(
DATA1,
x = "BUILDING.TYPE" ,
y = "Percent.houses",
fill = "STRUCTURAL.MAKEUP",
color = "black",
width = 0.5,
sort.by.groups = TRUE,
x.text.angle = 45, label = TRUE, label.pos = "in", lab.vjust = -0.2
) +
scale_fill_manual(
"",
breaks = c("wood", "brick", "glass"),
values = c("#009E73", "#D55E00", "#CC79A7"),
labels = c("wood", "brick", "glass")
) +
scale_y_continuous(breaks = 43:53) +
coord_cartesian(ylim = c(43, 53))
a + font("x.text", size = 6)
[1]: https://i.stack.imgur.com/f0Z2y.jpg
<details>
<summary>英文:</summary>
@erikor is right that simply setting limits within `scale_y_continuous()` will cause all your values to be excluded. One solution is to use the `oob` argument as they demonstrated. Another is to specify `ylim` in `coord_cartesian()`; unlike `scale_y_continuous()`, this has the effect of "zooming in" to the specified limits without removing data.
``` r
library(ggpubr)
a <- ggbarplot(
DATA1,
x = "BUILDING.TYPE" ,
y = "Percent.houses",
fill = "STRUCTURAL.MAKEUP",
color = "black",
width = 0.5,
sort.by.groups = TRUE,
x.text.angle = 45, label = TRUE, label.pos = "in", lab.vjust = -0.2
) +
scale_fill_manual(
"",
breaks = c("wood", "brick", "glass"),
values = c("#009E73", "#D55E00", "#CC79A7"),
labels = c("wood", "brick", "glass")
) +
scale_y_continuous(breaks = 43:53) +
coord_cartesian(ylim = c(43, 53))
a + font("x.text", size = 6)
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论