小编Mac*_*iej的帖子

我想从这个数据集创建虚拟变量:

DF<-structure(list(A = c(1, 2, 3, 4, 5), B = c("1,3,2", "2,1,3,6", 
  "3,2,5,1,7", "3,7,4,2,6,5", "4,10,7,3,5,6")), .Names = c("A", "B"), 
              row.names = c(NA, 5L), class = "data.frame")
> DF
  A                  B
1 1              1,3,2
2 2            2,1,3,6
3 3          3,2,5,1,7
4 4        3,7,4,2,6,5
5 5       4,10,7,3,5,6

期望的输出应该如下所示:

A  1  2  3  4  5  6  7  8  9  10
1  1  1  1  0  0  0  0  0  0  0
2  1  1  1  0  0  1  0  0  0  0
3 …

我想将Voronoi多边形与地图结合起来,以便稍后用于空间分析.我有多个点和shapefile,我想要组合,然后保存为shapefile /空间多边形.要获得voronoi多边形,我使用本主题中的函数.

我的代码如下:

coords<-data.frame(LONG=c(16.9252,16.9363,16.9408,16.8720,16.9167,16.9461,16.9093,16.9457,16.9171,16.8506,16.9471,16.8723,16.9444,16.9212,16.8809,16.9191,16.8968,16.8719,16.9669,16.8845),
LAT=c(52.4064,52.4266,52.3836,52.3959,52.4496,52.3924,52.4012,52.3924,52.3777,52.4368,52.4574,52.3945,52.4572,52.3962,52.3816,52.3809,52.3956,52.3761,52.4236,52.4539))

我的地图位于:https://docs.google.com/file/d/0B-ZJyVlQBsqlSURiN284dF9YNUk/edit

library(rgdal)
voronoipolygons <- function(x) {
  require(deldir)
  if (.hasSlot(x, 'coords')) {
    crds <- x@coords  
  } else crds <- x
  z <- deldir(crds[,1], crds[,2])
  w <- tile.list(z)
  polys <- vector(mode='list', length=length(w))
  require(sp)
  for (i in seq(along=polys)) {
    pcrds <- cbind(w[[i]]$x, w[[i]]$y)
    pcrds <- rbind(pcrds, pcrds[1,])
    polys[[i]] <- Polygons(list(Polygon(pcrds)), ID=as.character(i))
  }
  SP <- SpatialPolygons(polys)
  voronoi <- SpatialPolygonsDataFrame(SP, data=data.frame(x=crds[,1],
                                                          y=crds[,2], row.names=sapply(slot(SP, 'polygons'), 
                                                                                       function(x) slot(x, 'ID'))))
}

我的代码来获取voronoipolygons:

pzn.coords<-voronoipolygons(coords)
plot(pznall)
plot(pzn.coords,add=T)
points(coords$LONG,coords$LAT)

结果:

我想把我的地图中的这个voronoi多边形作为新的空间多边形. …

我想知道SAS中是否有相同的R Markdown？或者如何在SAS中这样做？我想在下面有彩色SAS代码及其结果.

链接到R Markdown:http://rstudio.org/docs/authoring/using_markdown

我想看看在RStudio查看器中html生成的文件,但是markdown在RStudiorstudio::viewer('test.html')外面的浏览器中打开我的文件.你能告诉我怎样才能做到这一点？

这个例子有效但我不知道为什么我的例子不能以这种方式工作.

test.html 文件它是我们选择新文件时得到的一个简单示例 - > R Markdown.

编辑(根据RomanLuštrik评论)

library(knitr)
library(markdown)
f <- system.file("examples", "knitr-minimal.Rmd", package = "knitr")
knit(f)
markdownToHTML('knitr-minimal.md',output='knitr-minimal.html')
rstudio::viewer('knitr-minimal.html')

我想从这个网站下载所有图像,但下载后的照片都已损坏.我该怎么做才能成功下载它们？

我的代码:

library(XML)
dir.create('c:/photos')
urls<-paste("http://thedevilsguard.tumblr.com/page/",1:1870,sep="")
doc<-htmlParse(urls[1])
links<-unique(unlist(xpathApply(doc,'//div[@class="timestamp"]/a',xmlGetAttr,'href')))
for (i in 1:length(links)){
  doc2<-htmlParse(links[i])
  link<-xpathApply(doc2,'//div[@class="centre photopage"]//p//img',xmlGetAttr,'src')[[1]][1]
  download.file(link,paste("C:/photos/",basename(link),""))
}

我希望R在我的(大量)模拟和保存结果后关闭我的计算机,这可能吗？

有没有办法结合animation package和降价？我想生成动画,我想在r markdown生成的html文件中包含和描述.

当然我可以从已生成的r markdown文件中嵌入代码saveHTML或saveGIF文件,但我想自动执行此过程.

我正在使用Windows,R 15.1和最后一个RStudio.

我一般都有readHTMLTable和XML包的编码问题.我想下载从抛光部位allegro.pl(类似于eBay拍卖网站)的一些表,但经过如此,有一个编码的问题与波兰的字体,即使我使用的编码="UTF-8"或stringsAsFactors = F在readHTMLTable.

码:

library(XML)
url<-paste("http://allegro.pl/listing.php/search?category=15821&sg=0&p=",1:5,"&string=facebook",sep="")

alldata<-NULL

for (i in 1:5){
dane<-as.data.frame(readHTMLTable(url[i],1,stringsAsFactors = TRUE, encoding="UTF-8")$lista)
alldata<-rbind(alldata,dane)
}

结果:

> head(alldata[,c(2,3)])
                                                        V2                      V3
1     Facebook Fan Page z ANIMACJ?„„ indywidualny projekt Kup Teraz! 150,00 z?…‚
2 Lubi?„™ to! Facebook! OKAZJA!!! 160 FAN?“W!!! ZOBACZ!  Kup Teraz! 10,99 z?…‚
3    125 fan?Â?w fani like fanpage FACEBOOK polskie konta  Kup Teraz! 10,00 z?…‚
4    Reklama Fanpage 43500+ fan?Â?w, fani, facebook Efekt  Kup Teraz! 17,99 z?…‚
5       Facebook Fanpage -Stworzenie Profesjonalnego Konta  Kup Teraz! 77,90 …

我想将RStudio(Windows 7)中的默认编辑器更改为记事本++.

我知道我应该用

options(editor = "notepad")

然后运行,例如:

mean <- edit(mean)

但是当我键入notepad ++时,我得到了这个错误

options(editor = "notepad++")
mean <- edit(mean)
Error in edit(name, file, title, editor) : 
  unable to run editor 'notepad++'

I Windows我可以通过输入"start notepad ++"在控制台中运行notepad ++.

我非常感谢你的帮助!

这是我的会话信息:

> sessionInfo()
R version 2.15.2 (2012-10-26)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=Polish_Poland.1250  LC_CTYPE=Polish_Poland.1250    LC_MONETARY=Polish_Poland.1250
[4] LC_NUMERIC=C                   LC_TIME=Polish_Poland.1250    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

loaded via a namespace (and not attached):
[1] tools_2.15.2

我想从GET或POST获取响应头.

我的例子是:

    library(httr)
    library(RCurl)
    url<-'http://www.omegahat.org/RCurl/philosophy.html'
    doc<-GET(url)
    names(doc)

[1] "url"         "handle"      "status_code" "headers"     "cookies"     "content"     "times"       "config"  

但是没有响应标头,只有请求标头.

结果应该是这样的:

Connection:Keep-Alive
Date:Mon, 11 Feb 2013 20:21:56 GMT
ETag:"126a001-e33d-4c12cf2702440"
Keep-Alive:timeout=15, max=100
Server:Apache/2.2.14 (Ubuntu)
Vary:Accept-Encoding

我可以用R和httr/RCurl包来做这件事,还是R还不足以解决这类问题？

编辑:我想获得所有响应标头.我主要对位置响应感兴趣,这不是在这个例子中.

Edit2:我忘了告诉系统我在做什么 - 它是Windows 7

我的session.info

> sessionInfo()
R version 2.15.2 (2012-10-26)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=Polish_Poland.1250  LC_CTYPE=Polish_Poland.1250    LC_MONETARY=Polish_Poland.1250
[4] LC_NUMERIC=C                   LC_TIME=Polish_Poland.1250    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] rjson_0.2.12 RCurl_1.95-3 bitops_1.0-5 httr_0.2     XML_3.95-0.1

loaded …

我想从metal-archives.com下载表格,完全来自http://www.metal-archives.com/artist/rip,但是有一个大问题.这个表是由javascript生成的.事实上,我不知道在这种情况下该怎么做.

是否有可能使用R和XML包解析此站点？

我想用来ggplo2分析Likert规模变量.我想得到这种图形(下图),但我不知道如何在堆叠条上添加标签,并为每个分组变量和facet变量(for facet_wrap)插入不同的计数和均值.

我将不胜感激任何帮助!

数据可以从这里获得

我的代码:

library(ggplot2)
library(scales)
library(RColorBrewer)

ggplot(example,aes(GroupungVar,fill=VarOfInterest)) + geom_bar(position='fill') +      
scale_fill_manual(values = (brewer.pal(5, "Greens"))) + 
facet_wrap(~FacetVar,ncol=1) + coord_flip() + 
scale_y_continuous(labels=percent) + ylab('Percent')

我得到了什么......

..以及我想要实现的目标(数字与数据集中的数字不同).我希望每组标签中有计数(N),条形上的百分比标签和右侧的平均值(当然每组).百分比和平均值应该是图中所有条形的,我只将它们添加到前几个,只是为了表明我的意思.

我想知道是否有可能在R中做这种仪表板(我的意思是这种情节)？

以下是我想在R中做的例子(首先来自SAS)

编辑:我在Windows 7(64位)上工作.