小编Lyn*_*ker的帖子

我正在尝试在 CANVAS LMS 中显示 R 代码和输出（特别是在页面内，而不仅仅是作为单独的 html 文件）。我对谷歌搜索没有任何兴趣，所以希望有人能提供帮助。

我已经尝试过（作为一个简单的测试）但没有起作用：在 RStudio 中创建了一个新的 RMarkdown HTML 文档（带有示例表和示例图的基本默认文档）。使用 Knit 创建 html 文件。打开 HTML 文件并将代码复制到 LMS（原始 html 编辑器）中。这种方法有效，但不显示绘图，并且有一些我不需要复制的代码（见图）。

大概有一种更聪明的方法可以做到这一点，但我找不到任何好的资源。

我正在将一系列李克特量表问题绘制为堆积条形图。它们需要标记，但有些片段是两个小片段，并且会重叠，如下例所示（下面有示例代码）。是否有一种聪明的方法来仅标记足够大以适合标签的部分，或者交错显示标签的方式？

q1a<-rep(c("A", "B", "C", "D"), c(2, 5,45,45))
q1b<-rep(c("A", "B", "C", "D"), c(45,45,2, 5))
data<-data.frame(q1a,q1b)

data %>%
  select(q1a:q1b) %>%
  pivot_longer(cols = everything(), names_to = "Question") %>%
  filter(!is.na(value)) %>%
  count(Question, value) %>%
  group_by(Question) %>%
  mutate(Pct = n / sum(n)) %>%
  ggplot(aes(fill = value, x = Pct, y = fct_rev(Question))) +
  geom_bar(position = "fill", stat = "identity") +
  geom_text(aes(label = paste0(sprintf("%1.0f", Pct * 100), "%")), position = position_stack(vjust = 0.5), size = 3) +
  scale_fill_brewer(palette = "Blues") +
  theme_bw() +
  scale_x_continuous(labels = scales::percent) …