Question

为了生成地图，我试图重命名R中的某些数据。我知道错误本质上是在告诉我我在代码中提到的数据/字段在我要调用的基础数据中不存在。下面是到目前为止的代码。该数据是公开的，因此没有机密性问题。

请原谅文本中的下划线，但是我花了一个小时试图让代码部分移至空格，制表符等位置，但无济于事。

关于什么是问题的任何想法？

我以前已经这样做过，但是使用的是csv而不是excel文件，它运行良好。重命名功能后发生错误。在下面

  Error in rename(current, OctoberEmployment18 = OctoberEmployment, 
  NovemberEmployment18 = NovemberEmployment,  : 
  unused arguments (OctoberEmployment18 = OctoberEmployment, 
  NovemberEmployment18 = NovemberEmployment, DecemberEmployment18 = 
  DecemberEmployment)

 #load packages
 x = c("tidyverse","ggplot2", "rgdal", "maptools", "mapproj", "rgeos", 
 "plyr", "RColorBrewer","scales", "viridis", "ggthemes", "tidyverse", 
 "scales", "cowplot","reshape","reshape2", "plotly")
 lapply(x, library, character.only = TRUE)

 #creates function to remove US territories on map
 remove.territories = function(.df) {
 subset(.df, 
        .df$id != "AS" &
            .df$id != "MP" &
            .df$id != "GU" & 
            .df$id != "PR" &
            .df$id != "VI" 
 )
 }

  #sets directory to folder where you have shapefile
  setwd("C:/Users/whoever/Documents/R")
  dsn <- "cb_2017_us_state_20m.shp"
  layer <- "cb_2017_us_state_20m"
  cb5 = readOGR(dsn, layer)

  save(cb5, file ="cb5")

  #creates function to remove US territories on map
  remove.territories = function(.df) {
  subset(.df, 
        .df$id != "AS" &
            .df$id != "MP" &
            .df$id != "GU" & 
            .df$id != "PR" &
            .df$id != "VI" 
  )
 }

  #sets directory to folder where you have shapefile
  setwd("C:/Users/whoever/Documents/R")
  dsn <- "cb_2017_us_state_20m.shp"
  layer <- "cb_2017_us_state_20m"
  cb5 = readOGR(dsn, layer)

  save(cb5, file ="cb5")


  #find QCEW data here:https://www.bls.gov/cew/datatoc.htm
  #download the high-level county layout, correct column names, remove 
  commas, and SAVE as CSV
  #CHANGE FILE NAME TO DESIRED QUARTER AND PREVIOUS YEAR QUARTER
  current<- read_csv("QCEW/allhlcn184.csv")
  last<- read_csv("QCEW/allhlcn174.csv")

  current %>%
  filter(AreaType=="State" & Ownership=="Private" & Industry=="10 Total, 
  all industries")->current
  last %>%
  filter(AreaType=="State" & Ownership=="Private" & Industry=="10 Total, 
  all industries")->last


  keepsc <-c("St","Year","OctoberEmployment","NovemberEmployment","DecemberEmployment")

  current<- current[keepsc]

  keepsl <- 
  c("St","OctoberEmployment","NovemberEmployment","DecemberEmployment")
  last<- last[keepsl]

  _______current<rename(current,OctoberEmployment18=OctoberEmployment,NovemberEm__ 
   ployment18=NovemberEmployment,DecemberEmployment18=DecemberEmployment)

   last<- _______rename(last,_OctoberEmployment17=OctoberEmployment,NovemberEmployment17__ 
   =NovemberEmployment, DecemberEmployment17=DecemberEmployment)

我想要一个结果，将2017年的数据与2018年的数据进行比较，计算同比增长率，然后将这些增长率应用于地图。这个重命名错误妨碍了这种情况。当我查看源数据时，列标题在那里并且没有空格，就像代码中的写法一样。

重命名错误。...未使用的参数R。原始数据中存在字段

0 个答案: