小编Jos*_*erg的帖子

对一个向量中的值进行重新编码,以最大化另一向量中相同数字的对的数量

我有下表,该表original_table是通过比较相同索引 和 的数字对的频率得出的vector_1vector_2

vector_1 <- c(5, 6, 5, 4, 6, 6, 4, 1, 6, 7, 5, 3, 3, 4, 4, 7, 7, 7, 2, 7, 2, 6, 1)
vector_2 <- c(1, 2, 1, 3, 4, 4, 4, 2, 4, 7, 2, 5, 5, 3, 3, 6, 7, 7, 6, 3, 6, 7, 2)
original_table <- table(vector_1, vector_2)
str(original_table)

        vector_2
vector_1 1 2 3 4 5 6 7
       1 0 2 0 0 0 0 0 …
Run Code Online (Sandbox Code Playgroud)

optimization r matrix

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

仅匹配dplyr matches()辅助函数的完全匹配

我现在用的matches()辅助函数作为参数的一部分select()dplyr功能.

对于假设df数据框,该函数如下所示:

select(df, variable_1_name, matches("variable_2_name"))
Run Code Online (Sandbox Code Playgroud)

至少当我正在使用它时,variable_2_name必须作为字符串传递给select().

但是,如果df匹配中存在另一个变量"variable_2_name",例如"variable_2_name_recode",那么matches()将匹配这两个变量.是否可以仅使用dplyr函数匹配完全匹配,或者使用不同的方法?

r dplyr

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

在 Sublime Text 中添加上标

我继承了一行带有以下类型上标的代码:

\n\n
nm\xc2\xb3\n
Run Code Online (Sandbox Code Playgroud)\n\n

我似乎无法更改或复制3上标。这个特定的3上标似乎与我在 Text Edit.app 或 Microsoft Word 中创建的上标不同(即3),因为当我将在其中之一中创建的上标粘贴到 Sublime Text 中时,上标不会保留(即,看起来就像这样nm3:)。

\n\n

特别是,我想将其更改为2。有没有办法使用 Sublime Text、另一个文本编辑器或通过其他方法来做到这一点?为什么这个上标不同?

\n

text

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

summary.manova 中的错误 - 残差存在排序不足

我正在尝试进行多元方差分析。有7因变量和代表组的分类自变量6

数据可在此处获取:http://pastebin.com/fqXNjWtr

单击文本上方的下载。我正在这样读取文件R(我认为下载的文件的名称应该与您相同;我使用的是 Macintosh 操作系统):

> df <- read.csv("~/downloads/fqXNjWtr.txt", stringsAsFactors = F)
> str(df)

'data.frame':   244 obs. of  8 variables:
 $ var1              : num  0.3 0 0.312 0 0.643 ...
 $ var2              : num  0 0.125 0 0.375 0.0714 ...
 $ var3              : num  0 0.0625 0.0625 0 0.0714 ...
 $ var4              : num  0.2 0.3125 0.0625 0.0625 0 ...
 $ var5              : num  0.1 0.25 0.438 0.188 0 ...
 $ var6              : …
Run Code Online (Sandbox Code Playgroud)

r manova

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

在R中使用dplyr查找分组观察的比例

经常我使用的功能group_by()summarize()(注意:这是相同的count()功能,如果摘要统计是sum())功能在dplyr包中R

下面是一个示例:

library(dplyr)

data <- data.frame(
  group = sample(rep(c("Group A", "Group B", "Group C", "Group D"), 4), 16, replace = F),
  factor = sample(rep(c("Factor 1", "Factor 2"), 8), 16, replace = F),
  var1 = sample(1:16)
)
Run Code Online (Sandbox Code Playgroud)

这是输出:

out_df <- 
    data %>% 
        group_by(group) %>% 
        summarize(sum_var1 = sum(var1))

print(out_df)

Source: local data frame [7 x 3]
Groups: group [4]

    group   factor sum_var1
   <fctr>   <fctr>    <int>
1 Group A Factor 1 …
Run Code Online (Sandbox Code Playgroud)

r dplyr

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

使用 devtools::install_github() 安装 R 包时无法锁定目录

在使用 GitHub 从 GitHub 安装 R 包时devtools::install_github(),返回以下错误:

ERROR: failed to lock directory ‘/Library/Frameworks/R.framework/Versions/3.3/Resources/library’ for modifying
Try removing ‘/Library/Frameworks/R.framework/Versions/3.3/Resources/library/00LOCK-jrosen48-prcr-4f6f783’
Run Code Online (Sandbox Code Playgroud)

当我使用 MacintoshOS 10.12上的终端导航到该位置时,它不可用(R.framework 没有出现在“Frameworks”目录中)。

我怎样才能尝试删除‘/Library/Frameworks/R.framework/Versions/3.3/Resources/library/00LOCK-jrosen48-prcr-4f6f783’?或者,还有其他解决方法吗?

r devtools

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

标签 统计

r ×5

dplyr ×2

devtools ×1

manova ×1

matrix ×1

optimization ×1

text ×1