请选择 进入手机版 | 继续访问电脑版
楼主: 蛋蛋T2000
1866 3

[问答] R语言纠错 [推广有奖]

  • 0关注
  • 0粉丝

等待验证会员

小学生

64%

还不是VIP/贵宾

-

威望
0
论坛币
5 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
70 点
帖子
2
精华
0
在线时间
11 小时
注册时间
2019-7-12
最后登录
2019-9-25

蛋蛋T2000 发表于 2019-7-16 18:39:47 |显示全部楼层 |坛友微信交流群
5论坛币
各位大神,R语言小白在对照网站所给的代码编写时出现了自己解决不了的问题,求好心的大神帮忙解决
# World polygons from the maps package
> world_shp <- sf::st_as_sf(maps::map("world", plot = FALSE, fill = TRUE))

> # Load EEZ polygons
> eezs <- read_sf("F:/data/shapefiles/World_EEZ_v10_20180221", layer = 'eez_v10') %>%
+   filter(Pol_type == '200NM') # select the 200 nautical mile polygon layer

> # Specify location of data directory containing daily csv files.  
> data_dir <- ("F:/yjs/data/fishing_effort/fishing_effort")

> # Create dataframe of filenames dates and filter to date range of interest
> effort_files <- tibble(
+   file = list.files(paste0(data_dir, 'fishing_effort_byflag'),
+                     pattern ='.csv', recursive = T, full.names = T),
+   date =ymd(str_extract(file,
+                          pattern = '[[:digit:]]{4}-[[:digit:]]{2}-[[:digit:]]{2}')))

> # Generate a vector of dates of interest using ymd from lubridate
> effort_dates <- seq(ymd('2016-01-01'), ymd('2016-12-31'), by='days')

> # Filter to files within our date range of interest
> effort_files <- filter(effort_files, date %in% effort_dates)

> # Read in data (uncomment to read in parallel)
> plan(multisession)
> effort_df <- furrr::future_map_dfr(effort_files$file, .f = read_csv)

> # Add date information
> effort_df <- effort_df %>%
+   mutate(year  = year(date),
+          month = month(date))
Error in as.POSIXlt.default(x, tz = tz(x)) :
  do not know how to convert 'x' to class “POSIXlt”



代码的本意是根据所获得一系列各年份间的csv格式的数据,然后将其绘成图,然而我只是进行到一半就出现错误了,并且怎么都消不掉,求大神帮忙!

关键词:R语言 information Informatio formation directory
owenqi 在职认证  学生认证  发表于 2019-7-19 09:50:47 |显示全部楼层 |坛友微信交流群
如果是照着网站的代码写的话,最好把网站地址给出来,不然你这些文件的都是本地的地址,要复现你的问题比较困难。

使用道具

skyfx 发表于 2019-7-23 13:16:03 |显示全部楼层 |坛友微信交流群
year  = year(as.Date(date))
已有 1 人评分论坛币 学术水平 热心指数 收起 理由
admin_kefu + 10 + 1 + 1 热心帮助其他会员

总评分: 论坛币 + 10  学术水平 + 1  热心指数 + 1   查看全部评分

使用道具

lq448566676 发表于 2020-9-17 19:02:36 |显示全部楼层 |坛友微信交流群
请问后来解决了吗 我在Pol_type == '200NM'这里卡住了

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-29 13:03