小编G. *_*Gip的帖子

我正试图png通过R从安全站点下载图像.

访问我使用的安全网站Rvest运作良好.

到目前为止,我已经提取了png图像的URL .

如何使用rvest下载此链接的图像？

rvest由于没有权限,函数外部的函数返回错误.

目前的尝试

library(rvest)
uastring <- "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/41.0.2228.0 Safari/537.36"
session <- html_session("https://url.png", user_agent(uastring))
form <- html_form(session)[[1]]
form <- set_values(form, username = "***", password="***", cookie_checkbox= TRUE)
session<-submit_form(session, form)
session2<-jump_to(session, "https://url.png")

## Status 200 using rvest, sucessfully accsessed page.    
session 
<session> https://url.png
  Status: 200
  Type:   image/png
  Size:   438935

## Using download.file returns status 403, page unable to open.
download.file("https://url.png", destfile = "t.png")
    cannot open: …

我有一个带有 XY 像素坐标的栅格，我想将其转换为经纬度。

class       : RasterLayer 
dimensions  : 1617, 1596, 2580732  (nrow, ncol, ncell)
resolution  : 1, 1  (x, y)
extent      : 0, 1596, 0, 1617  (xmin, xmax, ymin, ymax)
coord. ref. : NA 
data source : C:\janW1.png 
names       : janW1 
values      : 0, 255  (min, max)

我已经使用此处指定的公式计算了纬度/经度坐标。

这导致了以下数据框

heads(cords)
       lat       lon   x      y janW1
1 46.99401 -14.99122 0.5 1616.5     0
2 46.99401 -14.97367 1.5 1616.5     0
3 46.99401 -14.95611 2.5 1616.5     0
4 46.99401 -14.93856 3.5 1616.5 …

我有一个数字向量，想使用自定义顺序按名称重新排序。

x <- sample(1:20, 5)
names(x) <- c("feb", "may", "mar", "jan", "apr")
x
feb may mar jan apr 
  7  10   5  13  11 

如您所见，向量不是按月顺序排列的

期望输出

我希望使用名称通过月份顺序重新排序这个字符向量，即 jan, feb, mar, apr, may...

这怎么可能？

注意：我追求的是一种可以用于所有名称/字符串的方法，而不是专门用于日期对象