自己琢磨出来了，哎
d=read.csv("zhai3.csv")
attach(d)
names(d)
sunflowerplot(ax,Speciesno,xlab="Atitude During SCLR",xaxt="n",yaxt="n",ylab="Species",col.lab="blue")
axlab=c("enhanced","rare","given","more land","plants changed","no management","others")
splab=c("fruit tree","forest","shurb","rubber","stem used","others")
axis(1,labels=F)
text(1:7,par("usr")[3] - 0.25, srt = 10, adj = 1,labels=axlab,xpd=T)
哎，费了半天功夫啊，但愿对别人有用
