小编gia*_*iac的帖子

我正在尝试创建6个案例的序列,但间隔为144个案例.

比如这个

c(1:6, 144:149, 288:293)

1   2   3   4   5   6 144 145 146 147 148 149 288 289 290 291 292 293

我怎么能自动生成这样的序列

seq 

还是与其他功能？

我想计算data.frame中的所有组合.

数据看起来像这样

   9 10 11 12
1  1  1  1  1
2  0  0  0  0
3  0  0  0  0
4  1  1  1  1
5  1  1  1  1
6  0  0  0  0
7  1  0  0  1
8  1  0  0  1
9  1  1  1  1
10 1  1  1  1

我想要的输出很简单

comb     n 
1 1 1 1  5
0 0 0 0  3 
1 0 0 1  2 

你知道有什么简单的功能吗？

谢谢

dt = structure(list(`9` = …

是否可以captions在Google文档中添加表格？

我希望能够生成一个自动的表列表.例如这样的事情:

任何的想法 ？

我想知道是否有人提出了一个解决方案来使用 来显示分类变量的参考类别stargazer？

library(stargazer) 

让我们想象 和gear是carb分类变量

mtcars$gear = factor(mtcars$gear)
mtcars$carb = factor(mtcars$carb)

我运行ols与

lm1 = lm(disp ~ gear + carb, mtcars)

和stargaze结果。

stargazer(lm1, single.row = TRUE,  omit.table.layout = "sn")

我明白了

但是，我发现自己总是返回文件tex来自定义参考类别以获取

基本上，我所做的就是添加到latex变量之间：

gear (ref = 3) &  \\ 
 \-\hspace{0.3cm} gear4 & $-$202.921$^{***}$ (22.477) \\ 

等等。

有人知道我是否可以在函数lines中添加这些类型stargazer吗？

我在执行简单操作时遇到了一些麻烦。

我想要的是简单地选择按分组的id具有所有值的行(-1, -2, -3, -4)，并根据此条件应用标签。

   id time
1   1   -4
2   1   -3
3   1   -2
4   1   -1
5   2   -1
6   2   -2
7   3   -1
8   3   -3
9   4   -1
10  4   -2
11  4   -3
12  4   -4

凭直觉我本来想要

rb[rb$time %in% c(-1, -2, -3, -4), ]

但是，当我这样做时，将全部id选中。因此，%in%操作员使用OR |操作员。

所以，我以为可以使用AND &运算符

rb[rb$time == -1 & 
 rb$time == -2 & 
 rb$time == -3 & 
 rb$time …

我正在寻找一种方法来facet_wrap处理同一%>%行中的不同主题，以获得类似的东西

有没有办法做类似的事情而不必做

fig1 = mtcars %>% filter(am == 1) %>%
  ggplot(aes(wt, mpg)) +
  geom_point() + 
  theme_bw(base_size = 15) + ggtitle('Theme A')

fig2 = mtcars %>% filter(am == 0) %>%
  ggplot(aes(wt, mpg)) +
  geom_point() + 
 theme_minimal(base_size = 15) + ggtitle('Theme B')

grid.arrange(fig1,fig2, ncol = 2)

有没有办法facet在同一行代码中为参数显示不同的主题？

如果没有，即使只是为facet参数显示不同的颜色背景也会有所帮助。

我想重新编码一些标识符,从大写到小写.

我不确定这里的问题是什么.

n = c('AFD.434', 'BSD.23', 'F234.FF')
gsub(pattern = '[[:upper:]]', replacement = '[[:lower:]]', n)

[1] "[[:lower:]][[:lower:]][[:lower:]].434" "[[:lower:]][[:lower:]][[:lower:]].23"  "[[:lower:]]234.[[:lower:]][[:lower:]]"

有什么建议？

我有一个配对数据的数据集(同一家庭的成员).

Id是个人标识符,householdid是合作伙伴的标识符(反之亦然).

我需要的是为他/她的伴侣的每个id添加一个额外的列(职业).

我的数据看起来像这样

dta = rbind( c(1013661,101366, 'Never worked'), 
   c(1013662, 101366, 'Intermediate occs'), 
   c(1037552, 103755, 'Managerial & professional occs'), 
   c(1037551, 103755, 'Intermediate occs')
)

colnames(dta) = c('idno', 'householdid', 'occup')
dta

 idno      householdid occup                           
"1013661" "101366"    "Never worked"                  
"1013662" "101366"    "Intermediate occs"             
"1037552" "103755"    "Managerial & professional occs"
"1037551" "103755"    "Intermediate occs"

我需要的应该是这样的

 idno      householdid occup                            occupPartner                    
"1013661" "101366"    "Never worked"                   "Intermediate occs"             
"1013662" "101366"    "Intermediate occs"              "Never worked"                  
"1037552" "103755"    "Managerial & professional occs" …

所以我有两个独立的矩阵(mat1和mat2),我需要仔细检查它们才能进行检查.我需要将结果存储到第三个矩阵中.

我觉得我的代码很长.

我想提出一些建议来避免循环.

所以我的第一个矩阵看起来像这样(dput到底)

  wit5.001 wit5.002 wit5.003 wit5.004 wit5.005 wit5.006 wit5.007 wit5.008 wit5.009 wit5.010
 [1,]        1        1        1        1        1        1        1            1        1        1
 [2,]        1        1        1        1        1        1        1        1        1        1
 [3,]        1        1        1        1        1        1        1        1        1        1
 [4,]        1        1        1        1        1        1        1        1        1        1
 [5,]        1        1        1        1        1        1        1        0        1        1
 [6,]        1        1        1        1        1        1        1        0        0        0 …

我试图使用jekyll与knitr这里提出

https://github.com/yihui/knitr-jekyll

当我尝试使用R function(通过R Studio)

servr::jekyll()

我收到一个错误

sh: jekyll: command not found
Error in jekyll_build() : Failed to run: jekyll build

构建github示例时没有问题,它工作正常.我不知道错误可能来自哪里.

我在Mac上工作OS X Yosemite.

任何线索？