小编the*_*ail的帖子

将列表中的NaN值替换为零(0)

亲爱的,我有一个问题NaN.我正在处理一个包含许多变量的大型数据集NaN.数据是这样的:

z=list(a=c(1,2,3,NaN,5,8,0,NaN),b=c(NaN,2,3,NaN,5,8,NaN,NaN))
Run Code Online (Sandbox Code Playgroud)

我用这个命令强制列表到数据框但我得到了这个:

z=as.data.frame(z)
> is.list(z)
[1] TRUE

> is.data.frame(z)
[1] TRUE
> replace(z,is.nan(z),0) 
Error en is.nan(z) : default method not implemented for type 'list'
Run Code Online (Sandbox Code Playgroud)

我强迫z到数据框但是这还不够,也许NaN在列表中有一个表单需要更改.谢谢你的帮助.这个数据只是我原始数据有36000个观察值和40个变量的例子.

r nan

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

从URL读取数据

是否有一种从一些网址获取数据的相当简单的方法?我试过最明显的版本,不起作用:

readcsv("https://dl.dropboxusercontent.com/u/.../testdata.csv")
Run Code Online (Sandbox Code Playgroud)

我没有找到任何可用的参考.有帮助吗?

julia

13
推荐指数
3
解决办法
4037
查看次数

使用dplyr的条件累积和

我的数据框看起来像这样,我想要两个单独的累积列,一个用于基金A,另一个用于基金B.

Name    Event    SalesAmount   Fund    Cum-A(desired)    Cum-B(desired)
John    Webinar   NA            NA        NA               NA
John    Sale     1000           A        1000              NA
John    Sale     2000           B        1000             2000
John    Sale     3000           A        4000             2000
John    Email    NA             NA       4000             2000
Tom     Webinar   NA            NA        NA               NA
Tom     Sale     1000           A        1000              NA
Tom     Sale     2000           B        1000             2000
Tom     Sale     3000           A        4000             2000
Tom     Email    NA             NA       4000             2000

I have tried:
df<-
    df %>%
    group_by(Name)%>%  
    mutate(Cum-A = as.numeric(ifelse(Fund=="A",cumsum(SalesAmount),0)))%>%
    mutate(Cum-B = as.numeric(ifelse(Fund=="B",cumsum(SalesAmount),0))) …
Run Code Online (Sandbox Code Playgroud)

r zoo dplyr

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

用R文本分析进行干扰

我正在对TM包进行大量分析.我最大的问题之一是与词干和词干变换有关.

假设我有几个与会计相关的术语(我知道拼写问题).
在阻止后我们有:

accounts   -> account  
account    -> account  
accounting -> account  
acounting  -> acount  
acount     -> acount  
acounts    -> acount  
accounnt   -> accounnt  
Run Code Online (Sandbox Code Playgroud)

结果:3个条款(帐户,帐户,帐户)我希望1(帐户),因为所有这些都与同一个词有关.

1)纠正拼写是一种可能性,但我从来没有在R中尝试过.这是否可能?

2)另一种选择是建立一个参考列表,即账户=(账户,账户,会计,会计,账户,账户,账户),然后将所有事件替换为主条款.我怎么会在R?

再一次,任何帮助/建议将不胜感激.

text r stemming tm

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

自动调整水平条形图中的边距

我需要制作一系列水平分组条形图.条形图功能不会自动调整绘图的边距,因此文本会被切断.

  graphics.off()      # close graphics windows
   test <- matrix(c(55,65,30, 40,70,55,75,6,49,45,34,20), 
                  nrow =3 , 
               ncol=4, 
               byrow=TRUE,
               dimnames = list(c("Subgroup 1", "Subgroup 2", "Subgroup 3"),
                               c(
                                 "Category 1 Long text",
                                 "Category 2 very Long text",
                                 "Category 3 short text",
                                 "Category 4 very short text"
                                 )))
  barplot(test, 
       las=2,
       beside = TRUE,
       legend=T,
       horiz=T)
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

我找不到一个选项来自动向右移动图,R点图功能的方式((SAS中的条形图程序也会自动调整边距).显然,我总是可以使用par函数手动调整边距.

  par(mar=c(5.1, 13 ,4.1 ,2.1))
Run Code Online (Sandbox Code Playgroud)

将剧情向右移动

在此输入图像描述

是否可以根据文本的长度自动将图形向右移动(即调整边距)?

我可以想到2个相关的appproaches以编程方式进行:1)计算最长文本字符串的长度并相应地调整左边距2)创建数据的点图,以某种方式捕获边距并在条形图中使用相同的边距.

有更简单的方法吗?谢谢!

r margins labels string-length

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

在R中查找列表元素

现在我正在使用R中的字符向量,我使用strsplit逐字分离.我想知道是否有一个函数可以用来检查整个列表,看看列表中是否有特定的单词,并且(如果可能的话)说出它所在的列表中的哪些元素.

恩.

a = c("a","b","c")
b= c("b","d","e")
c = c("a","e","f")
Run Code Online (Sandbox Code Playgroud)

如果z=list(a,b,c),那么f("a",z)将最佳地屈服[1] 1 3,并且f("b",z)将最佳地屈服[1] 1 2

任何帮助都会很精彩.

r list character

11
推荐指数
3
解决办法
4万
查看次数

如何获取knitr .Rnw文档中使用的包列表?

使用RStudio - > CompilePDF

在使用pdflatex处理的.Rnw文档中,我想获得通过文档中的library()或require()加载的所有用户(me)包的列表.我尝试使用sessionInfo(),如

   \AtEndDocument{
   \medskip
   \textbf{Packages used}: \Sexpr{names(sessionInfo()$loadedOnly)}.
   }
Run Code Online (Sandbox Code Playgroud)

然而,这打印的只是knitr本身使用的包列表,

使用的包:digest,evaluate,formatR,highr,stringr,tools.

不是我明确提到的那些.我相信这是因为knitr在内部环境中运行代码块,但我不知道如何访问它.

我知道使用cache = TRUE创建的文件缓存/ __包; 有没有办法在没有缓存的情况下自动生成它?

latex r knitr

10
推荐指数
2
解决办法
264
查看次数

如何在剧情中使用自定义点样式?

我正在进行降维实验,其中一组面将放置在XY平面上.我想在图中的每个点显示真实的面部(例如:第476页的图10).我可以在R中这样做吗?谢谢.

在此输入图像描述

graphics plot r bitmap points

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

将字符串转换为单个数字和总和

我已经尝试了几个小时来找到解决方案,我认为这是一项简单的任务,但我失败了.

我具有由3个不同的字符的字符串('I','R' & 'O'),长度从1至6
例如

IRRROO
RRORRR
IIR
RIRRO
Run Code Online (Sandbox Code Playgroud)

每个字符代表I=1,R=2,O=3
我需要将此字符串转换为单个数字,与位置相乘并将结果相加的数字.例如

IRRROO ---> (1*1)+(2*2)+(2*3)+(2*4)+(3*5)+(3*6) =52
IIR    ---> (1*1)+(1*2)+(2*3) =9
Run Code Online (Sandbox Code Playgroud)

在此先感谢您的帮助.

recursion text r sum character

9
推荐指数
2
解决办法
902
查看次数

我想从R中的两列中选择两个值中较大的一个

我的数据如下:

head(myframe)
      id fwt_r fwt_l
[1,] 101    72    52
[2,] 102    61    48
[3,] 103    46    49
[4,] 104    48    41
[5,] 105    51    42
[6,] 106    49    35
Run Code Online (Sandbox Code Playgroud)

我想在fwt_r和fwt_l中选择两个值中较大的一个.我希望输出像:

72
61
49
48
51
49
Run Code Online (Sandbox Code Playgroud)

请帮助我.谢谢!

r

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

标签 统计

r ×9

character ×2

text ×2

bitmap ×1

dplyr ×1

graphics ×1

julia ×1

knitr ×1

labels ×1

latex ×1

list ×1

margins ×1

nan ×1

plot ×1

points ×1

recursion ×1

stemming ×1

string-length ×1

sum ×1

tm ×1

zoo ×1