I am trying to sort a data frame by year. I know this should be the easiest thing in the world but I just keep getting error after error and have no idea how to solve this problem. I've tried to do the "minimum reproducible example" or whatever but I don't know how to create a data frame to reproduce the problem and I am not allowed to post the information online. So the first problem I thought I solved is changed the year column to numeric because it was a factor. Anyway, please help I'm about to punch a hole in a wall.
library(readr)
library(dplyr)
#>
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#>
#> filter, lag
#> The following objects are masked from 'package:base':
#>
#> intersect, setdiff, setequal, union
library(tidyr)
library(stringr)
library(lubridate)
#>
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:base':
#>
#> date
library(reprex)
library(tidyverse)
library(quantreg)
#> Loading required package: SparseM
#>
#> Attaching package: 'SparseM'
#> The following object is masked from 'package:base':
#>
#> backsolve
sports_top25000 <- read.csv('index_sales_export_categories.csv')
#> Warning in file(file, "rt"): cannot open file
#> 'index_sales_export_categories.csv': No such file or directory
#> Error in file(file, "rt"): cannot open the connection
baseball_top25000 <- sports_top25000 %>%
select(graded_title,vcp_card_grade_id,category,year,date,price) %>%
filter(category == 'Baseball')
#> Error in eval(lhs, parent, parent): object 'sports_top25000' not found
baseball_top25000
#> Error in eval(expr, envir, enclos): object 'baseball_top25000' not found
prewar_baseball_top25000 <- baseball_top25000 %>%
transform(prewar_baseball_top25000, year = as.numeric(year)) %>%
prewar_baseball_top25000
#> Error in eval(lhs, parent, parent): object 'baseball_top25000' not found
head(prewar_baseball_top25000)
#> Error in head(prewar_baseball_top25000): object 'prewar_baseball_top25000' not found
The errors you are getting suggest your problem starts before you attempt to sort by date. For example, your read.csv() function returns an error. Let's get that straightened out first. Can you call read.csv() without getting an error. Try using the full directory path. If you are on windows that would probably be something like
Here is an example of sorting a data frame by the year, after calculating the year from the date.
library(lubridate)
#>
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:base':
#>
#> date
library(dplyr)
#Make an example data frame
df <- data.frame(DATE =ymd(c("2017-01-01", "2018-01-01", "2019-01-01",
"2017-06-01", "2018-06-01", "2019-06-01")),
A = LETTERS[1:6])
df
#> DATE A
#> 1 2017-01-01 A
#> 2 2018-01-01 B
#> 3 2019-01-01 C
#> 4 2017-06-01 D
#> 5 2018-06-01 E
#> 6 2019-06-01 F
#add a YEAR column and then sort by it in ascending order
df <- df %>% mutate(YEAR = year(DATE)) %>% arrange(YEAR)
df
#> DATE A YEAR
#> 1 2017-01-01 A 2017
#> 2 2017-06-01 D 2017
#> 3 2018-01-01 B 2018
#> 4 2018-06-01 E 2018
#> 5 2019-01-01 C 2019
#> 6 2019-06-01 F 2019
I can´t be sure if this is your only problem because you are not providing sample data but this part of your code makes no sense, I guess you are trying to do something like this instead.
I was trying to change the type to numeric because it was factor. Whenever I tried to filter by year it wouldn't let me and I figured that was the problem. Now, after I have changed to numeric the year is being changed from something like 1952 to 46.