小编kub*_*uba的帖子

在dplyr的函数中使用变量名

我想在函数中使用变量名作为字符串dplyr.请参阅以下示例:

df <- data.frame( 
      color = c("blue", "black", "blue", "blue", "black"), 
      value = 1:5)
filter(df, color == "blue")
Run Code Online (Sandbox Code Playgroud)

它工作得很好,但我想color通过字符串来引用,类似这样:

var <- "color"
filter(df, this_probably_should_be_a_function(var) == "blue").
Run Code Online (Sandbox Code Playgroud)

我很高兴,无论如何都要这样做,并且非常乐意使用易于阅读的dplyr语法.

r r-faq dplyr rlang

38
推荐指数
8
解决办法
2万
查看次数

如何在ggplot中使用特殊运算符(..count ..等)在aes中使用先前声明的变量

假设我想用以下公式绘制直方图(我知道它不是最好的,但它会说明问题):

set.seed(1)
dframe <- data.frame(val=rnorm(50))
p <- ggplot(dframe, aes(x=val, y=..count..))
p + geom_bar()
Run Code Online (Sandbox Code Playgroud)

它工作得很好.但是,假设由于某种原因,我们希望频率除以收件人定义的数字.我的镜头是:

k <- 5
p <- ggplot(dframe, aes(x=val, y=..count../k))
p + geom_bar()
Run Code Online (Sandbox Code Playgroud)

但是我得到了这个恼人的错误:

Error in eval(expr, envir, enclos) : object 'k' not found
Run Code Online (Sandbox Code Playgroud)

是否存在使用两个类似..count..变量和一些预定义变量的方法?

scope r ggplot2

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

尝试使用R fitdistr {MASS}进行伽玛分布时的错误

我在R.中有fitdistr {MASS}函数有问题.我有这个向量:

a <- c(26,73,84,115,123,132,159,207,240,241,254,268,272,282,300,302,329,346,359,367,375,378, 384,452,475,495,503,531,543,563,594,609,671,687,691,716,757,821,829,885,893,968,1053,1081,1083,1150,1205,1262,1270,1351,1385,1498,1546,1565,1635,1671,1706,1820,1829,1855,1873,1914,2030,2066,2240,2413,2421,2521,2586,2727,2797,2850,2989,3110,3166,3383,3443,3512,3515,3531,4068,4527,5006,5065,5481,6046,7003,7245,7477,8738,9197,16370,17605,25318,58524)
Run Code Online (Sandbox Code Playgroud)

我想用命令将伽马分布拟合到数据:

fitted.gamma <- fitdistr(a, "gamma")
Run Code Online (Sandbox Code Playgroud)

但我有这样的错误:

Error in optim(x = c(26, 73, 84, 115, 123, 132, 159, 207, 240, 241, 254,  : 
non-finite finite-difference value [1]
In addition: Warning messages:
1: In densfun(x, parm[1], parm[2], ...) : NaNs produced
2: In densfun(x, parm[1], parm[2], ...) : NaNs produced
3: In densfun(x, parm[1], parm[2], ...) : NaNs produced
4: In densfun(x, parm[1], parm[2], ...) : NaNs produced
Run Code Online (Sandbox Code Playgroud)

所以我尝试初始化参数:

(fitted.gamma <- fitdistr(a, "gamma", start=list(1,1)))
Run Code Online (Sandbox Code Playgroud)

fit.gamma对象已创建,但在打印时会产生错误:

Error …
Run Code Online (Sandbox Code Playgroud)

r gamma-distribution

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

如何在 knit /Rstudio 的 HTML 输出中添加目录

在 html 输出中添加目录的可能方法有哪些knitr::knit2html()

我很熟悉这个markdownHTMLOptions解决方案。然而结果并不好看?对我来说,拥有这样的目录很重要,这样它在滚动时就会跟随网页,并且我可以随时导航。

r rstudio knitr r-markdown

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

标签 统计

r ×4

dplyr ×1

gamma-distribution ×1

ggplot2 ×1

knitr ×1

r-faq ×1

r-markdown ×1

rlang ×1

rstudio ×1

scope ×1