【发布时间】：2021-03-06 11:43:37
【问题描述】：
我正在为几个调查问题绘制结果，但我无法找到一种方法来正确缩放渲染为 HTML 后的图表。
我的最终结果是所有图表都居中对齐，并且每个分布的宽度都相同。所有构面/面板的比例为 0 - 100%，所以我希望它们在视觉上是相同的，唯一的区别是条形/文本。
除了在ggplotly 调用中看到width = 或height = 参数之外，还有其他方法可以控制吗？
非常感谢任何帮助。我尝试更改aspect.ratio、rmd 块选项和ggplotly 高度/宽度参数，但无济于事。
这是一个.rmd 代表：
---
title: "SO"
author: "Matt"
date: "11/23/2020"
output: html_document
---
```{r setup, include=FALSE}
library(tidyverse)
library(plotly)
knitr::opts_chunk$set(
echo = FALSE,
message = FALSE,
warning = FALSE
)
# Function for plotting
plot_func <- function(data){
ggplot(data, aes(x = reorder(name, rank_order, max), y = pct, fill = value)) +
geom_bar(stat = "identity", color = "#2b2b2b", size = 0.5) +
facet_wrap( ~ value) +
coord_flip() +
facet_grid(cols = vars(value)) +
theme(strip.text = element_text(size = 9, color = "white", hjust = .5),
strip.background = element_rect( fill = "black", color = NA ),
strip.placement = "outside",
panel.background = element_rect( fill = "white", color = NA ),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank(),
panel.grid.minor.y = element_blank(),
panel.grid.major.y = element_blank(),
panel.spacing.x = unit( 0.01, "cm" ),
panel.spacing.y = unit( 0.01, "cm" ),
legend.position = "none",
aspect.ratio = .8,
#axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
plot.title = element_text(hjust = 0.5)) +
annotate("segment", x=-Inf, xend=Inf, y=-Inf, yend=-Inf) +
scale_y_continuous(limits = c(0, 100), expand = expansion(mult = c(0, .1))) +
labs(title = "Activities",
x = "",
y = "Percentage of Respondents (each panel = 100%)")
}
# Question 1 Data
q1 <- structure(list(name = c("Go outside", "Go outside, walk the dog, get a coffee, take a nap",
"Stay inside, don't get a coffee, have lunch, leave everything until tomorrow",
"Go outside", "Stay inside, don't get a coffee, have lunch, leave everything until tomorrow",
"Go outside, walk the dog, get a coffee, take a nap", "Stay inside, don't get a coffee, have lunch, leave everything until tomorrow",
"Go outside", "Go outside, walk the dog, get a coffee, take a nap",
"Go outside", "Stay inside, don't get a coffee, have lunch, leave everything until tomorrow",
"Go outside, walk the dog, get a coffee, take a nap", "Go outside, walk the dog, get a coffee, take a nap",
"Stay inside, don't get a coffee, have lunch, leave everything until tomorrow",
"Go outside"), value = structure(c(5L, 5L, 5L, 4L, 4L, 4L, 3L,
3L, 3L, 2L, 2L, 2L, 1L, 1L, 1L), .Label = c("Several times a day",
"Once a day", "Several times a week", "Once a week", "Once a month or less"
), class = "factor"), n = c(20, 24, 44, 12, 40, 52, 196, 208,
252, 132, 136, 228, 1188, 1328, 1372), group_count = c(1744,
1744, 1744, 1744, 1744, 1744, 1744, 1744, 1744, 1744, 1744, 1744,
1744, 1744, 1744), pct = c(1.1, 1.4, 2.5, 0.7, 2.3, 3, 11.2,
11.9, 14.4, 7.6, 7.8, 13.1, 68.1, 76.1, 78.7), rank_order = 1:15), row.names = c(NA,
-15L), class = c("tbl_df", "tbl", "data.frame"))
# Question 2 Data
q2 <- structure(list(name = c("Do something", "Do something else, go outside, take a walk, go to the store, drive somewhere, come back home, go to sleep",
"Take a hike, do a dance", "Go shopping", "Do something", "Do something else, go outside, take a walk, go to the store, drive somewhere, come back home, go to sleep",
"Take a hike, do a dance", "Go shopping", "Do something", "Do something else, go outside, take a walk, go to the store, drive somewhere, come back home, go to sleep",
"Take a hike, do a dance", "Go shopping", "Do something", "Do something else, go outside, take a walk, go to the store, drive somewhere, come back home, go to sleep",
"Take a hike, do a dance", "Go shopping", "Do something", "Do something else, go outside, take a walk, go to the store, drive somewhere, come back home, go to sleep",
"Take a hike, do a dance"), value = c("Once a month or less",
"Once a month or less", "Once a month or less", "Once a week",
"Once a week", "Once a week", "Once a week", "Several times a week",
"Several times a week", "Several times a week", "Several times a week",
"Once a day", "Once a day", "Once a day", "Once a day", "Several times a day",
"Several times a day", "Several times a day", "Several times a day"
), n = c(20, 24, 44, 4, 12, 40, 52, 55, 196, 208, 252, 101, 132,
136, 228, 965, 1188, 1328, 1372), group_count = c(6357, 6357,
6357, 6357, 6357, 6357, 6357, 6357, 6357, 6357, 6357, 6357, 6357,
6357, 6357, 6357, 6357, 6357, 6357), pct = c(0.3, 0.4, 0.7, 0.1,
0.2, 0.6, 0.8, 0.9, 3.1, 3.3, 4, 1.6, 2.1, 2.1, 3.6, 15.2, 18.7,
20.9, 21.6), rank_order = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,
12, 13, 14, 15, 16, 17, 18, 19)), row.names = c(NA, -19L), groups = structure(list(
value = c("Once a day", "Once a month or less", "Once a week",
"Several times a day", "Several times a week"), .rows = structure(list(
12:15, 1:3, 4:7, 16:19, 8:11), ptype = integer(0), class = c("vctrs_list_of",
"vctrs_vctr", "list"))), row.names = c(NA, 5L), class = c("tbl_df",
"tbl", "data.frame"), .drop = TRUE), class = c("grouped_df",
"tbl_df", "tbl", "data.frame"))
```
## Question 1
```{r}
plot_func(q1) %>% ggplotly(., width = 1000, height = 300)
```
## Question 2
```{r}
plot_func(q2) %>% ggplotly(., width = 1000, height = 500)
```
未对齐的图：
【问题讨论】：
标签： r ggplot2 plotly r-markdown