小编MSD*_*MSD的帖子

geom_text 带有躲避的条形图并填充缺失的类别

使用,我正在为和 fillmtcars创建条形图。没有cyl==8 & gear==4的汽车。绘制时,我习惯保留条形的宽度。然后,使用I 向栏添加标签。cylgearposition_dodge(preserve = "single")geom_text

library(ggplot)
library(dplyr)

df <- count(mtcars, cyl, gear)

ggplot(df, aes(x = factor(cyl), y = n, fill = factor(gear))) +
  geom_col(position = position_dodge(preserve = "single")) +
  geom_text(aes(label = n, y = n + .07), size = 5, vjust = 0, 
                position = position_dodge(width=.9))
Run Code Online (Sandbox Code Playgroud)

出来两个问题:

  1. 最后一组的文本标签关闭,即cyl==8
  2. 在最后一组中,绿色条的红色条和蓝色条之间应该有一个间隙。相反,您会看到红色和蓝色条并排。

在此输入图像描述

r bar-chart ggplot2

4
推荐指数
1
解决办法
1651
查看次数

如何在 r markdown 中指定自定义纸张尺寸

我正在使用 R Markdown 制作具有特定高度和长度测量值的小册子。有没有办法指定 R Markdown 以 5.5"x8.5" 尺寸生成文章。

我在这里看到有关制作 A4 尺寸 pdf 的问题,但这无济于事,因为我的衡量标准非常具体。

latex r knitr r-markdown

4
推荐指数
1
解决办法
946
查看次数

更改博客主题(blogdown + netlify)

我已经一汇其次教程和使用创造了一个网站排污github上netlify。现在,我想更改网站的主题。问题是,我有几篇文章产生了很多情节。结果,当我在本地创建新网站并添加帖子时,git push失败了。我怀疑是因为我文件太多。

我试着逐段添加帖子,就像我在写新帖子一样,这确实有效。但是,这将花费太多时间。我怀疑其他人也有同样的问题。有没有一种方法可以更轻松地更改我的网站的主题?

netlify blogdown

3
推荐指数
1
解决办法
884
查看次数

将散点图和折线图与R中的高位图表结合起来

我是highcharter包的新手。我想在散点图上添加一条线(回归线)。看起来很简单,但我无法破解。我可以使它们分开使用,hchart()但它们不能合并。

library(broom)
library(dplyr)
library(highcharter)

lm.model <- augment(lm(mpg ~ wt, data = mtcars))

lm.model %>%
  hchart(type = "scatter", hcaes(x = wt, y = mpg))

lm.model %>%
  hchart(type = "line", hcaes(x = wt, y = .fitted)
Run Code Online (Sandbox Code Playgroud)

我也尝试使用,hc_add_series_scatter()但找不到行的类似功能。

highchart() %>%
  hc_add_series_scatter(x = lm.model$wt, y = lm.model$mpg)
Run Code Online (Sandbox Code Playgroud)

甚至可以合并两种图表类型吗?

r highcharts r-highcharter

1
推荐指数
1
解决办法
783
查看次数