小编s_a*_*s_a的帖子

我有一些Excel VBA代码需要知道下载文件夹路径.我怎么能这样做？

由于您可以移动" 下载"文件夹(以及" 文档"和大多数文件夹,通过文件夹属性),因此环境变量%USERPROFILE%无法构建类似的路径%USERPROFILE%\Downloads,WScript.Shell.SpecialFolders也不会列出"下载"文件夹.

我想必须要阅读注册表,但我对此毫无头绪.

谢谢!

我在Windows 7 32位上使用R 3.1.1.我在阅读一些我想要进行文本分析的文本文件时遇到了很多问题.根据Notepad ++,文件使用"UCS-2 Little Endian"编码.(grepWin,一个名字说明这一切的工具,说该文件是"Unicode".)

问题是我甚至无法读取文件甚至指定编码.(这些字符属于标准的西班牙语拉丁语-ñáó-,应该可以使用CP1252或类似的东西轻松处理.)

> Sys.getlocale()
[1] "LC_COLLATE=Spanish_Spain.1252;LC_CTYPE=Spanish_Spain.1252;LC_MONETARY=Spanish_Spain.1252;LC_NUMERIC=C;LC_TIME=Spanish_Spain.1252"
> readLines("filename.txt")
 [1] "ÿþE" ""    ""    ""    ""   ...
> readLines("filename.txt",encoding="UTF-8")
 [1] "\xff\xfeE" ""          ""          ""          ""    ...
> readLines("filename.txt",encoding="UCS2LE")
 [1] "ÿþE" ""    ""    ""    ""    ""    ""     ...
> readLines("filename.txt",encoding="UCS2")
 [1] "ÿþE" ""    ""    ""    ""    ...

有任何想法吗？

谢谢!!

编辑:"UTF-16","UTF-16LE"和"UTF-16BE"encondings同样失败

我正在尝试在R中进行交叉制表，并使其输出尽可能类似于我在Excel数据透视表中获得的输出。目的是将用Excel和Word手动生成的报告替换为用R Markdown自动生成的报告。数据处理和图表已得到解决，但缺少一些表格。因此，给出以下代码：

set.seed(2)
df<-data.frame("ministry"=paste("ministry ",sample(1:3,20,replace=T)),"department"=paste("department ",sample(1:3,20,replace=T)),"program"=paste("program ",sample(letters[1:20],20,replace=F)),"budget"=runif(20)*1e6)
library(tables)
library(dplyr)
arrange(df,ministry,department,program)
tabular(ministry*department~((Count=budget)+(Avg=(mean*budget))+(Total=(sum*budget))),data=df)

产生（实际数据要复杂得多）：

                                 Avg    Total  
 ministry    department    Count budget budget 
 ministry  1 department  1 5     479871 2399356
             department  2 1     770028  770028
             department  3 1     184673  184673
 ministry  2 department  1 2     170818  341637
             department  2 1     183373  183373
             department  3 3     415480 1246440
 ministry  3 department  1 0        NaN       0
             department  2 5     680102 3400509
             department  3 2     165118  330235

这与我可以得到的Excel结果差不多。我需要显示小计，如下所示（在Excel中使用完全相同的数据生成）：

是否有可能在R中获得类似的信息（无需逐个单元格手动编码表）？

谢谢！

我有一份R列表; 每个列表都有一个Grep命令的结果,指示找到搜索字符串的位置.命令

> matches<-lapply(ListOfFiles, function(x)
+ grep("SearchString",readLines(x),ignore.case = T))

产生

//I copy the results that the function actually yields for the sake of the example

> matches<-list(c(11L, 13L), c(9L, 12L, 14L, 15L, 16L, 19L, 20L, 22L, 25L
+ ), c(5L, 8L, 11L), c(10L, 11L, 13L, 14L, 16L), c(5L, 7L, 9L), 
+ integer(0))

> matches
[[1]]
[1] 11 13

[[2]]
[1]  9 12 14 15 16 19 20 22 25

[[3]]
[1]  5  8 11

[[4]]
[1] 10 11 13 14 …