重現matplotlib中的線圖或R

Question

我遇到了精彩的figure，它總結（科學）作者多年來的合作。這張圖貼在下面。

每條垂直線是指單個作者。每條垂直線的開始對應於相關作者收到她的第一個合作者的年份（即，當她變爲活動並因此成爲協作網絡的一部分時）。作者按照他們去年（即2010年）的合作者總數排名。着色表示每位作者的合作者數量多年來（從活躍到2010年）如何增加。

我有一個類似的數據集;而不是作者，我在我的數據集中有關鍵字。每個數值表示特定年份的期限頻率。數據是這樣的：

Year Term1 Term2 Term3 Term4 
1966  0  1  1  4 
1967  1  5  0  0 
1968  2  1  0  5 
1969  5  0  0  2 

例如，Term2第一次出現在1967年與頻率1，而Term4第一次出現在1966年一年，頻率4.完整數據集可here。

Answer 1

該圖看起來相當不錯，所以我試圖重現它。原來這比我想象的要複雜一點。

df=read.table("test_data.txt",header=T,sep=",") 
#turn O into NA until >0 then keep values 
df2=data.frame(Year=df$Year,sapply(df[,!colnames(df)=="Year"],function(x) ifelse(cumsum(x)==0,NA,x))) 
#turn dataframe to a long format 
library(reshape) 
molten=melt(df2,id.vars = "Year") 
#Create a new value to measure the increase over time: I used a log scale to avoid a few classes overshadowing the others. 
#The "increase" is measured as the cumsum, ave() is used to get cumsum to work with NA's and tapply to group on "variable" 
molten$inc=log(Reduce(c,tapply(molten$value,molten$variable,function(x) ave(x,is.na(x),FUN=cumsum)))+1) 
#reordering of variable according to max increase 
#this dataframe is sorted in descending order according to the maximum increase" 
library(dplyr) 
df_order=molten%>%group_by(variable)%>%summarise(max_inc=max(na.omit(inc)))%>%arrange(desc(max_inc)) 
#this allows to change the levels of variable so that variable is ranked in the plot according to the highest value of "increase" 
molten$variable<-factor(molten$variable,levels=df_order$variable) 
#plot 
ggplot(molten)+ 
    theme_void()+ #removes axes, background, etc... 
    geom_line(aes(x=variable,y=Year,colour=inc),size=2)+ 
    theme(axis.text.y = element_text())+ 
    scale_color_gradientn(colours=c("red","green","blue"),na.value = "white")# set the colour gradient 

給出：

不是像你一樣的文件，但這是一個開始。