小编luk*_*keA的帖子

如何绘制像WOMENS SYMBOL或 MENS SYMBOL这样的unicode符号 ,或者该代码块中的其他符号？除了设置包含这些字符的字体系列之外,当我使用像这样的点字符时,R挂在我的系统*pch上:

plot(0, type="n")
points(1, .5, pch=-0xfffdL)
# works
points(1, -.5, pch=-0x1f6b9L)
# R hangs

正如文件所述,

在操作系统支持的情况下,负值指定Unicode代码点,因此例如-0x2642L是"男性符号",-0x20ACL是欧元.

*我的sessionInfo():

R version 3.2.2 (2015-08-14)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

locale:
[1] LC_COLLATE=German_Germany.1252  LC_CTYPE=German_Germany.1252    LC_MONETARY=German_Germany.1252 LC_NUMERIC=C                   
[5] LC_TIME=German_Germany.1252    

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

loaded via a namespace (and not attached):
[1] rsconnect_0.3.79 tools_3.2.2 

感谢您的帮助和提前检查您的系统.

编辑:当我使用RStudio …

将对象从{XML}包中转换回"普通"R字符向量的最佳方法是什么？

例如:

require(XML)
doc <- htmlParse("http://cran.r-project.org/web/packages/XML/index.html")
class(doc)
# [1] "HTMLInternalDocument" "HTMLInternalDocument" 
# "XMLInternalDocument"  "XMLAbstractDocument" 

与此建议类似,我可以这样做:

doc.char <- capture.output(doc)

但这似乎是一条迂回的路线.但是,我没有找到任何其他适当的方法.这已经困扰了我几次.

给出以下示例数据表:

library(data.table)
DT <- fread("grp y exclude
a 1 0
a 2 0
a 3 0
a 4 1
a 5 0
a 7 1
a 8 0
a 9 0
a 10 0
b 1 0
b 2 0
b 3 0
b 4 1
b 5 0
b 6 1
b 7 1
b 8 0
b 9 0
b 10 0
c 5 1
d 1 0")

我想选择

1. 按组 grp
2. 所有的行 y==5
3. 在分组中从2开始,每行前后最多两行.
4. 但是3.只有那些拥有的行exclude==0.

假设每个组最多有一行 …

这是对为在 R 中创建的 html 小部件添加 onclick 打开超链接事件提供的答案的后续问题。考虑以下示例：

library(ggplot2)
library(plotly)
library(htmlwidgets)
library(htmltools)
myData <- data.frame(
  x=c(1,2,3), 
  y=c(3,2,1),
  label=c("Google", "Bing", "R"),
  category=c("search", "search", "other"),
  urls=c("http://google.de", "http://bing.com", "http://r-project.org")
)

f <- function(p) {
  ply <- ggplotly(p)
  javascript <- HTML(paste("
   var myPlot = document.getElementById('", ply$elementId, "');
   myPlot.on('plotly_click', function(data){
   var urls = ['", paste(myData$urls, collapse = "', '"), "'];
   window.open(urls[data.points[0].pointNumber],'_blank');
   });", sep=''))  
  prependContent(ply, onStaticRenderComplete(javascript))
}

这按预期工作 - 单击任意点可打开相应的 url：

f(ggplot(myData, aes(x=x, y=y)) + geom_point(aes(text=label)))

这不能按预期工作 - 索引不再匹配：

f(ggplot(myData, aes(x=x, y=y)) + geom_point(aes(text=label, color=category))) …

我有一个带有日期的刮字符向量.我的问题:使用时as.Date(),每个日期都包含月份名称"März"(=德语中的"march")NA.这是为什么？

这是一个(希望可重复的)示例:

require(RCurl)
require(XML)
doc <- htmlParse(getURL("http://www.amazon.de/product-reviews/3836218984/?ie=UTF8&pageNumber=5&showViewpoints=0&sortBy=byRankDescending"), 
                 encoding="UTF-8")
(dates <- xpathSApply(doc, "//div/span[2]/nobr", xmlValue))
# [1] "12. Februar 2009"   "12. November 2006"  "19. März 2010"     
# [4] "30. Juni 2007"      "7. März 2006"       "19. März 2007"     
# [7] "22. Januar 2006"    "24. September 2005" "15. Februar 2012"  
# [10] "28. März 2007" 

Sys.setlocale("LC_TIME", "German") # on Windows, see ?Sys.setlocale
as.Date(dates,  "%d. %B %Y")
# [1] "2009-02-12" "2006-11-12" NA           "2007-06-30" NA          
# [6] NA           "2006-01-22" "2005-09-24" "2012-02-15" NA …