小编Ana*_*ind的帖子

我正在尝试在R中运行以下代码,但是我收到了一个错误.

我不确定公式的哪一部分是不正确的.任何帮助将不胜感激.

> censusdata_20$AGB93 = WD * exp(-1.239 + 1.980 * log (DIAM93) + 0.207 (log(DIAM93))^2 
                        - 0.0281 (log(DIAM93))^3)
Error: attempt to apply non-function

框架:

df 1:包含多个具有500列值的相同id的行

    id|val.1|val.2|...|val.500
---------------------------------
    1 | 240 | 234 |...|228
    1 | 224 | 222 |...|230
    1 | 238 | 240 |...|240
    2 | 277 | 270 |...|255
    2 | 291 | 290 |...|265
    2 | 284 | 282 |...|285

df 2:只包含一个唯一的id(行),它将df-1 id列与500列值相匹配

    id|val.1|val.2|...|val.500
---------------------------------
    1 | 250 | 240 |...|245
    2 | 280 | 282 |...|281

我想根据它们的id将df 1列值除以df 2中的相应列值,最后得到df 3:

    id|val.1|val.2|...|val.500
---------------------------------
    1 | 0.96| 0.98|...|0.93
    1 | 0.90| 0.93|...|0.94
    1 | 0.95| 1.00|...|0.98
    2 | 0.99| 0.96|...|0.91 …

我正在尝试计算带有NA值的data.frame中几列(除第一列之外)的平均值和标准差.

我已经尝试过colMeans,sapply等等,创建一个遍历data.frame的循环,然后将平均值和标准偏差存储在一个单独的表中,但不断出现"FUN"错误.任何帮助都会很棒.谢谢

一个

嗨,我在r中使用coefplot函数绘制出广义线性模型的系数.我想将95%CI线的颜色更改为与50%CI线不同.对于95%和50%CI行,颜色参数默认颜色相同.

coeff<-coefplot(model1,pointSize=5,color="black",fillColor="grey",lwdOuter = 1.2,lwdInner=2)

coeff + theme_bw() +
  theme(panel.grid.major=element_blank(),panel.grid.minor=element_blank()) +
  theme (axis.title.y  = element_text(size=16)) +
  theme(axis.title.x = element_text(size=16)) +
  scale_y_discrete(name="",labels=c("NDAA","GAP","SS","PS","LL")) +
  theme (axis.text.x  = element_text(size=16)) +
  theme(axis.text.x = element_text(size=16)) +
  scale_x_continuous(name="Regression Estimate") +
  labs(title = "") +
  coord_flip()