小编mli*_*gar的帖子

我正在尝试使用Homebrew安装Node.js(我之前没有使用brew安装它,我尝试删除所有这些文件).我看过以前提出类似问题的问题,但是我无法让他们工作.首先,我试过brew link node给了我:

myusername@c126h060:~$ brew link node
Linking /usr/local/Cellar/node/0.12.6... 
Error: Could not symlink share/systemtap/tapset/node.stp
Target /usr/local/share/systemtap/tapset/node.stp
already exists. You may want to remove it:
  rm '/usr/local/share/systemtap/tapset/node.stp'

To force the link and overwrite all conflicting files:
  brew link --overwrite node

To list all files that would be deleted:
  brew link --overwrite --dry-run node

然后当我跑步时,brew link --overwrite node我得到以下内容:

myusername@c126h060:~$ brew link --overwrite node
Linking /usr/local/Cellar/node/0.12.6... 
Error: Could not symlink share/systemtap/tapset/node.stp
/usr/local/share/systemtap/tapset is not writable.

另外,当我尝试使用brew link -n …

我有一个存储的txt文件列表A.path,我希望用grep它来查找与该文件相关的年份,并将今年保存到矢量中.但是,由于其中一些txt文件在其文本中有多年,我只想存储第一年.我怎样才能做到这一点？

我已经完成了类似的事情lapply,这就是我开始解决这个问题的方法:

lapply(A.path, function(i){
j <- paste0(scan(i, what = character(), comment.char='', quote=NULL),  collapse = " ")
year <- vector()
year[i] <- grep('[0-9][0-9][0-9][0-9]', j)
})

grep可能不是正确使用的函数,因为它返回j每个函数的全部i.在这里使用什么是正确的功能？

我想描绘一个特定主题的比例如何随时间变化,但是我在隔离单个主题和绘制时间方面遇到了一些麻烦,特别是对于分别绘制多组文档(让我们创建两组进行比较 - 期刊A和B).我在一个名为的函数中保存了与这些日志相关的日期dateConverter.

这是我到目前为止(非常感谢@scoa):

library(tm); library(topicmodels);


txtfolder <- "~/path/to/documents/"
source <- DirSource(txtfolder)

myCorpus <- Corpus(source, readerControl=list(reader=readPlain))


for (i in 1:10){
  meta(myCorpus[[i]], tag = "origin") <- "A"
}
for (i in 11:length(myCorpus)){
  meta(myCorpus[[i]], tag = "origin") <- "B"
}
dates <- do.call("c", dateConverter)
for (i in 1:length(myCorpus)){
  meta(myCorpus[[i]], tag = "datetimestamp") <- dates[i]
}

dtm <- DocumentTermMatrix(myCorpus, control = list(minWordLength=3))


n.topics <- 10
lda.model <- LDA(dtm, n.topics)
terms(lda.model,10)
df <- data.frame(id=names(topics(lda.model)),
                 topic=posterior(lda.model),
                 date=as.POSIXct(unlist(lapply(meta(myCorpus,type="local",tag="datetimestamp"),as.character))),
                 origin=unlist(meta(myCorpus,type="local",tag="origin"))    )

我该如何绘制这些？

我有相对大量的坐标，我想获取人口普查区域（除了 FIPS 代码）。我知道我可以使用call_geolocator_latlon（如这里所做的那样）查找单个纬度/经度对，但这对我的目的来说似乎不切实际，因为该函数对人口普查局的 API 发出一次调用，我想这需要很长时间在我的约 200,000 双上运行。

有没有更快的方法来做到这一点，也许是通过使用block_groups函数下载每个州的 shapefile并从那里映射到经纬度到人口普查区？