df<-read.csv("奥运会奖牌总数.csv")
library(reshape2)
names(df)<-c("国家","1894","1900","1904","1908","1912","1916","1920","1924","1928","1932","1936","1940","1944","1948","1952","1956","1960","1964","1968","1972","1976","1980","1984","1988","1992","1996","2000","2004","2008","2012","2016","2020")
Dorder<-sort(df$2020,index.return=TRUE,decreasing = TRUE)
df$国家<-factor(df$国家,levels=df$国家[Dorder$ix])
df1=melt(df,id="国家",vars = c("国家"))
names(df1)<-c("国家","年份","奖牌数")
df1$年份<-as.character(df1$年份)
df1$年份<-as.integer(df1$年份)
library(ggplot2)
library(gganimate)
p<-ggplot(df1,aes(年份,国家,size=奖牌数,color=国家))+geom_point(show.legend = FALSE,alpha=0.7)+scale_color_viridis_d()+scale_size(point",range=c(2,22))
p+transition_time(df1$年份)+labs(title="year:{frame_time}")
Error: unexpected string constant in:
"p<-ggplot(df1,aes(年份,国家,size=奖牌数,color=国家))+geom_point(show.legend = FALSE,alpha=0.7)+scale_color_viridis_d()+scale_size(point",range=c(2,22))
p+transition_time(df1$年份)+labs(title=""
你好，我是有问必答小助手，非常抱歉，本次您提出的有问必答问题，技术专家团超时未为您做出解答
本次提问扣除的有问必答次数，将会以问答VIP体验卡（1次有问必答机会、商城购买实体图书享受95折优惠）的形式为您补发到账户。
因为有问必答VIP体验卡有效期仅有1天，您在需要使用的时候【私信】联系我，我会为您补发。