Untitled

library(dplyr)

## Warning: 程辑包'dplyr'是用R版本4.2.1 来建造的

## 
## 载入程辑包：'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(ggplot2)
data <- read.csv( "E:\\e-program\\在用数据\\data_ultimate_1.csv",
                  sep = ",",header = T)
pphoto <- function(i,j){
  a <- data %>%
    filter(`index1` == i & `index2`== j ) %>%
    select(`V1`,`V3`,`APP_TYPE`,`year`,`capacity`)
  m <- a$V1[1]
  n <- a$V3[1]
  k <- paste(m,"-",n)
  p <- a %>%
    ggplot(aes(x = `year`,y =`capacity`,color = `APP_TYPE`))+
    geom_point()+
    geom_line(aes(x=`year`,y=`capacity`,color=`APP_TYPE`))+
    labs(title =  bquote(''*.(k)),x = "year",y = "capacity")+
    theme(plot.title = element_text(hjust = 0.5,size = 10))
  return(p)
}

for(i in c(1:11)){
  b <- data %>% filter(`index1`==i)
  for (j in c(sort(unique(b$index2)))) {
    print(pphoto(i,j))
}
}