ソート、 order 、 sprintf

 

w <- c(); for(i in seq(1,47,1)){w <- append(w,sum(last(dmdf[,i],31)) / sum(last(mdf[,i],31)))}
data.frame(d=sprintf("%.4f",100*w[order(w,decreasing = T)]),r=pref_jp[order(w,decreasing = T)])
         sprintf("%.4f", 100 * w[order(w, decreasing = T)])

高知県                                               0.1810
広島県                                               0.1809
山梨県                                               0.1473
三重県                                               0.1328
愛媛県                                               0.1303
山口県                                               0.1295
群馬県                                               0.1190
香川県                                               0.1150
栃木県                                               0.1147
熊本県                                               0.1063
北海道                                               0.1061
石川県                                               0.1034

i <- length(seq(as.Date("2022-01-01"),last(mdf$t),by="day"))

w <- ((last(dmdf[,-48],i) %>% apply(.,2,sum)) / (last(mdf[,-48],i) %>% apply(.,2,sum))) %>%  as.vector(.) %>% data.frame(r=pref_jp,d=.);w <- w[order(w$d,decreasing = T),] ; data.frame(r=w$r,d=sprintf("%.4f",100*w$d))