小编cyl*_*ude的帖子

为什么as.Date("06/10/2013"​​,"%m /%d /%y")将在2020年回归?

就像标题所说的那样,

>as.Date("06/10/2013", "%m/%d/%y") # returns "2020-06-2013
[1] "2020-06-10"
Run Code Online (Sandbox Code Playgroud)

是什么造成的?我正在使用32位RGui的窗口和最新的动物园包.

谢谢.

r time-series zoo

4
推荐指数
1
解决办法
1859
查看次数

传单和R与北极投影

我想在arcitc-sdi网络地图平铺服务上使用W的WGS84之外的R小册子包.

我认为这可能是不可能的,但我希望得到一个明确的来源.看起来有插件可以用小叶进行极性投影(但可能不是R的传单包?).

我可以在QGIS中加载" http://opencache.statkart.no/gatekeeper/gk/gk.open_wmts "作为wms,但我无法在R中使用传单.

library(leaflet);leaflet() %>% addWMSTiles("http://opencache.statkart.no/gatekeeper/gk/gk.open_wmts")

编辑:我找到了类似osm等平铺服务的服务.

HTTP:// {S} .tiles.arcticconnect.org/osm_ {投影}/{Z}/{X}/{Y} .PNG

javascript r wms leaflet

4
推荐指数
1
解决办法
459
查看次数

用于在绘图中选择点/绘图的套索/涂鸦工具

有时候我想用鼠标在绘制的点周围绘制一个圆形或波浪形的形状来专门选择这些点.有没有人建立功能呢?也许是需要Tcl/tk的东西?

r

3
推荐指数
1
解决办法
351
查看次数

当每组 n 不同时,过滤分组数据帧的 n 行

我想为数据框的每组选择不同的行数。我还没有找到一种优雅的方法来使用 dplyr 来做到这一点。要为每个组挑选相同数量的行,我可以像这样完成:

library(dplyr)

iris %>% 
    group_by(Species) %>%
    arrange(Sepal.Length) %>%
    top_n(2)
Run Code Online (Sandbox Code Playgroud)

但我希望能够引用另一个表,其中包含我想要的每个组的行数,如下所示的示例表:

top_rows_desired <- data.frame(Species = unique(iris$Species),
    n_desired = c(4,2,5))
Run Code Online (Sandbox Code Playgroud)

r dplyr

3
推荐指数
1
解决办法
525
查看次数

如何点击javascript"链接"?是我的xpath还是我的relenium/selenium用法?

就像我在堆栈溢出之前发布任何问题一样,我想我已经尝试了一切.这是一个关于如何使用javascript和xml的学习经验所以我猜我的问题就在那里.

我的问题是如何获得点击javascript链接的包裹号码链接的结果?我已经尝试获取链接的xpath并使用遵循我的直觉的$ click方法,但这不对,或者至少不适合我.

Firefox 26.0 R 3.0.2

require(relenium)
library(XML)
library(stringr)
initializing_parcel_number <- "00000000000"
firefox <- firefoxClass$new()
firefox$get("http://www.muni.org/pw/public.html")
inputElement <- firefox$findElementByXPath("/html/body/form[2]/table/tbody/tr[2]/td/table[1]/tbody/tr[3]/td[4]/input[1]")
inputElement$sendKeys(initializing_parcel_number)
inputElement$sendKeys(key = "ENTER")

##xpath to the first link. Or is it?
first_link <- "/html/body/table/tbody/tr[2]/td/table[5]/tbody/tr[2]/td[1]/a"

##How I'm trying to click the thing. 
linkElement <- firefox$findElementByXPath("/html/body/table/tbody/tr[2]/td/table[5]/tbody/tr[2]/td[1]/a")
linkElement$click()
Run Code Online (Sandbox Code Playgroud)

selenium xpath r

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

标签 统计

r ×5

dplyr ×1

javascript ×1

leaflet ×1

selenium ×1

time-series ×1

wms ×1

xpath ×1

zoo ×1