Как классифицировать годы с разрезом?

Я пытаюсь разделить годы с 1928 по 2022 годы на категории десятилетий в R, так как я хочу рассчитать среднюю доходность фондового рынка за каждое десятилетие

SP500 %>% mutate(decade = cut(SP500$Year, seq(1930,2020,by=10))) %>% 
  group_by(decade) %>% summarise(return = mean(`Annual\n% Change`))
# A tibble: 10 × 2
   decade              return
   <fct>                <dbl>
 1 (1.93e+03,1.94e+03]  0.014
 2 (1.94e+03,1.95e+03]  0.077
 3 (1.95e+03,1.96e+03]  0.124
 4 (1.96e+03,1.97e+03]  0.056
 5 (1.97e+03,1.98e+03]  0.058
 6 (1.98e+03,1.99e+03]  0.098
 7 (1.99e+03,2e+03]     0.157
 8 (2e+03,2.01e+03]     0.018
 9 (2.01e+03,2.02e+03]  0.121
10 NA                   0.04 

как я могу изменить метки для фактора десятилетия на что-то вроде 1930-1940, 1940-1950....

Спасибо заранее

cut(..., labels=...) позволяет вам определять метки.
r2evans 07.04.2022 18:30
cut() имеет аргумент labels, так что вы можете определить lebels именно так, как вы хотите.
mkpt_uk 07.04.2022 18:30

К вашему сведению, «никогда» не используйте SP500$ внутри канала при происхождении из SP500. Времена, когда это имеет смысл, редки. Случаи, когда все идет ужасно неправильно, часты и бесчисленны.

r2evans 07.04.2022 18:31
Стоит ли изучать PHP в 2023-2024 годах?
Стоит ли изучать PHP в 2023-2024 годах?
Привет всем, сегодня я хочу высказать свои соображения по поводу вопроса, который я уже много раз получал в своем сообществе: "Стоит ли изучать PHP в...
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Приемы CSS-макетирования - floats и Flexbox
Приемы CSS-макетирования - floats и Flexbox
Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...
Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest
В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Пользовательский скаляр GraphQL
Пользовательский скаляр GraphQL
Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...
0
3
30
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Аргумент labels= используемой вами функции принимает вектор length(breaks)-1, чтобы вы могли переопределить метки.

years <- seq(1920, 2020, by = 10)
length(years); years
# [1] 11
#  [1] 1920 1930 1940 1950 1960 1970 1980 1990 2000 2010 2020
labels <- paste(years[-length(years)], years[-1], sep = "-")
length(labels); labels
# [1] 10
#  [1] "1920-1930" "1930-1940" "1940-1950" "1950-1960" "1960-1970" "1970-1980" "1980-1990" "1990-2000" "2000-2010"
# [10] "2010-2020"
cut(c(1935, 1959, 1960), years, labels = labels)
# [1] 1930-1940 1950-1960 1950-1960
# Levels: 1920-1930 1930-1940 1940-1950 1950-1960 1960-1970 1970-1980 1980-1990 1990-2000 2000-2010 2010-2020

Или, возможно, чтобы быть более точным с номенклатурой диапазонов, мы можем сделать

labels <- paste(1 + years[-length(years)], years[-1], sep = "-")
cut(c(1935, 1959, 1960), years, labels = labels)
# [1] 1931-1940 1951-1960 1951-1960
# Levels: 1921-1930 1931-1940 1941-1950 1951-1960 1961-1970 1971-1980 1981-1990 1991-2000 2001-2010 2011-2020

Ваша запись более точна, но чтобы получить то, что предложил OP, используйте, например. labels <- paste(head(years, -1), tail(years, -1), sep = '-')

Axeman 07.04.2022 18:44

Другие вопросы по теме