Блог

У меня здесь есть данные, мои данные. Я хотел бы сделать график, подобный этому примеру, многочарточным. Я попытался запустить этот сценарий ниже. Однако я не понимаю, как ввести мои данные в Excel для запуска этого сценария. Кто-нибудь может мне помочь? Пожалуйста, я думал об этом 3 дня, и крайний срок очень скоро. Спасибо вам за вашу помощь

 # Libraries
library(ggplot2)
library(babynames) # provide the dataset: a dataframe called babynames
library(dplyr)
library(hrbrthemes)
library(viridis)

# Keep only 3 names
don <- babynames %>% 
  filter(name %in% c("Ashley", "Patricia", "Helen")) %>%
  filter(sex=="F")
  
# Plot
don %>%
  ggplot( aes(x=year, y=n, group=name, color=name))  
    geom_line()  
    scale_color_viridis(discrete = TRUE)  
    ggtitle("Popularity of American names in the previous 30 years")  
    theme_ipsum()  
    ylab("Number of babies born")
 

Вы можете прочитать данные с помощью readxl::read_excel , получить их в длинном формате и построить график с использованием ggplot .

 library(tidyverse)

data <- readxl::read_excel('example data.xlsx')

data %>%
  mutate(row = row_number()) %>%
  pivot_longer(cols = -row, values_drop_na = TRUE) %>%
  ggplot()   aes(row, value, color = name)   
  geom_line()