英文:
how to convert a data frame to a time series (yearly)
问题
以下是要翻译的内容：
大家好。我有一个问题，需要将数据框转换为时间序列，但我的时间序列是基于年份的。所以基本上我想将表A转换为表B。表A，当前布局 我想要的
数据如下：
NameCorp<-c("AAC Holdings, Inc." ,"AAC Holdings, Inc." , "Accuride Corporation", "Accuride Corporation", "Accuride Corporation","Adeptus Health Inc." ,"Adeptus Health Inc." , "Akorn, Inc." ,"Akorn, Inc." ,"Akorn, Inc." ,"Aleris International, Inc.","Aleris International, Inc.","Aleris International, Inc.")
year<-c("2014","2015","2002","2005","2011","2018","2020","2012","2019","2020","2007","2009","2010")
value<-c("125","1115","300","500","2500","1100","47.5","150","250","900","2400","2025","500")
a<-data.frame(NameCorp=NameCorp,year=year,value=value)
我尝试了read.zoo()和ts()，但没有成功。
谢谢！！
英文:
everyone. i have the problem to convert a data frame to the time series, but my time series is based on year. so basically i want to convert the table A to table B.table A , current layout what i want
the data is here:
NameCorp<-c("AAC Holdings, Inc." ,"AAC Holdings, Inc." , "Accuride Corporation", "Accuride Corporation", "Accuride Corporation","Adeptus Health Inc." ,"Adeptus Health Inc." , "Akorn, Inc." ,"Akorn, Inc." ,"Akorn, Inc." ,"Aleris International, Inc.","Aleris International, Inc.","Aleris International, Inc.")
year<-c("2014","2015","2002","2005","2011","2018","2020","2012","2019","2020","2007","2009","2010")
value<-c("125","1115","300","500","2500","1100","47.5","150","250","900","2400","2025","500")
a<-data.frame(NameCorp=NameCorp,year=year,value=value)
i tried the read.zoo() and ts(), but it does not work.
Thank you !!!!
答案1
得分: 0
使用 tidyverse 库a %>%type_convert() %>%complete(NameCorp, year = full_seq(year, 1)) %>%pivot_wider(names_from = NameCorp, values_from = value)# 一个数据表: 19 × 6年份 `AAC Holdings, Inc.` `Accuride Corporation` `Adeptus Health Inc.` `Akorn, Inc.` `Aleris International, Inc.`<dbl> <dbl> <dbl> <dbl> <dbl> <dbl>1 2002 NA 300 NA NA NA2 2003 NA NA NA NA NA3 2004 NA NA NA NA NA4 2005 NA 500 NA NA NA5 2006 NA NA NA NA NA6 2007 NA NA NA NA 24007 2008 NA NA NA NA NA8 2009 NA NA NA NA 20259 2010 NA NA NA NA 50010 2011 NA 2500 NA NA NA11 2012 NA NA NA 150 NA12 2013 NA NA NA NA NA13 2014 125 NA NA NA NA14 2015 1115 NA NA NA NA15 2016 NA NA NA NA NA16 2017 NA NA NA NA NA17 2018 NA NA 1100 NA NA18 2019 NA NA NA 250 NA19 2020 NA NA 47.5 900 NA
英文:
library(tidyverse)a %>%type_convert() %>%complete(NameCorp, year = full_seq(year, 1)) %>%pivot_wider(names_from = NameCorp, values_from = value)# A tibble: 19 × 6year `AAC Holdings, Inc.` `Accuride Corporation` `Adeptus Health Inc.` `Akorn, Inc.` `Aleris International, Inc.`<dbl> <dbl> <dbl> <dbl> <dbl> <dbl>1 2002 NA 300 NA NA NA2 2003 NA NA NA NA NA3 2004 NA NA NA NA NA4 2005 NA 500 NA NA NA5 2006 NA NA NA NA NA6 2007 NA NA NA NA 24007 2008 NA NA NA NA NA8 2009 NA NA NA NA 20259 2010 NA NA NA NA 50010 2011 NA 2500 NA NA NA11 2012 NA NA NA 150 NA12 2013 NA NA NA NA NA13 2014 125 NA NA NA NA14 2015 1115 NA NA NA NA15 2016 NA NA NA NA NA16 2017 NA NA NA NA NA17 2018 NA NA 1100 NA NA18 2019 NA NA NA 250 NA19 2020 NA NA 47.5 900 NA
答案2
得分: 0
问题如下：
-
数据是字符型的，尽管
year和value应该表示数值。str(a)## 'data.frame': 13 obs. of 3 variables:## $ NameCorp: chr "AAC Holdings, Inc." "AAC Holdings, Inc."## "Accuride Corporation" "Accuride Corporation" ...## $ year : chr "2014" "2015" "2002" "2005" ...## $ value : chr "125" "1115" "300" "500" ...
-
问题没有显示不起作用的代码，所以可能还有其他错误。没有代码，我们无法解决这个问题。
-
问题中显示的图像中的0应该是NA。
我们假设你希望得到一个zoo或ts对象，因为这是你尝试的函数可能会生成的对象，而且问题涉及时间序列。
以下代码将year和value中的字符值转换为数值，然后转换为zoo对象z，最后转换为ts对象tt。更多信息请参考?read.zoo。
library(zoo)z <- a %>%type.convert(as.is = TRUE) %>%read.zoo(FUN = c, index = "year", split = "NameCorp")tt <- as.ts(z)zz <- as.zoo(tt)
这是z的图表：
library(ggplot2)autoplot(na.approx(z), facet = NULL)
英文:
The problemd are:
-
the data is character even though
yearandvalueare supposed to represent numeric values.str(a)## 'data.frame': 13 obs. of 3 variables:## $ NameCorp: chr "AAC Holdings, Inc." "AAC Holdings, Inc."## "Accuride Corporation" "Accuride Corporation" ...## $ year : chr "2014" "2015" "2002" "2005" ...## $ value : chr "125" "1115" "300" "500" ...
-
the question did not show the code that did not work so there could have been additional errors as well. We won't be able to address that without the code.
-
the 0's shown in the image in the question should likely be NA's
We assume you want a zoo or ts object since that is what the functions you tried would have produced and the subject refers to time series.
The following code converts the character values in year and value to numeric and then to a zoo object z and finally converts to ts object tt. See ?read.zoo for more information. We also convert tt back to zoo giving zz. 'z' has years actually present in the data whereas tt and zz have all years between the smallest and largest years.
library(zoo)z <- a |>type.convert(as.is = TRUE) |> # convert to numericread.zoo(FUN = c, index = "year", split = "NameCorp")tt <- as.ts(z)zz <- as.zoo(tt)
Here is a graph of z
library(ggplot2)autoplot(na.approx(z), facet = NULL)
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论