论坛好像不能传图片，类型名称也忘了可以用作统计特征人口，整个人口用几排相同的小人表示，然后某一特征的人涂成特定颜色 R能制作这样的图形吗？

利用怡轩的showtext包，结合自己乱画的小人儿字体，在ggplot2里面：五湖四海大联盟[s:11] pdf矢量支持哦[s:17]

回复第2楼的 doctorjxd：论坛怎样插入图片？

回复第2楼的 doctorjxd：我了个去，牛大发了！！！

回复第3楼的 qxde01：自带附件确实会方便些，但太难管理，可移植性不好。之前稍微动了一下论坛系统，附件就死了一大片。现在都用imgur装图，也不算太麻烦。

回复第2楼的 doctorjxd：仔仔体？你真是精力旺盛,技术就是这样被滥用的——我怀疑他所说的那种图很有可能是类似于《经济学人》或其他机构发布的报告或专业刊物上面的那种图表，那些图片多数是用AI和PS美工合成的。

回复第2楼的 doctorjxd：亮了！

回复第2楼的 doctorjxd：求字体文件！

我来凑个热闹。[s:11] link = "http://img.dafont.com/dl/?f=wm_people_1"; download.file(link, "wmpeople1.zip", mode = "wb"); unzip("wmpeople1.zip"); library(showtext); font.add("wmpeople1", "wmpeople1.ttf"); library(ggplot2); library(plyr); library(Cairo); dat = read.csv(textConnection(' edu,educode,gender,population 未上过学,1,男,17464 未上过学,1,女,41268 小学,2,男,139378 小学,2,女,154854 初中,3,男,236369 初中,3,女,205537 高中,4,男,94528 高中,4,女,70521 大专及以上,5,男,57013 大专及以上,5,女,50334 ')); dat$int = round(dat$population / 10000); gdat = ddply(dat, "educode", function(d) { male = d$int[d$gender == "男"]; female = d$int[d$gender == "女"]; data.frame(gender = c(rep("男", male), rep("女", female)), x = 1:(male + female)); }); gdat$char = ifelse(gdat$gender == "男", "p", "u"); CairoPNG("edu.png", 600, 300, pointsize = 15); showtext.begin(); ggplot(gdat, aes(x = x, y = educode)) + geom_text(aes(label = char, colour = gender), family = "wmpeople1", size = 7) + scale_x_continuous("人数（千万）") + scale_y_discrete("受教育程度", labels = unique(dat$edu[order(dat$educode)])) + scale_colour_manual("性别", values = c("#00BFC4", "#F8766D")) + ggtitle("2012年统计数据"); showtext.end(); dev.off();

回复第9楼的 Ihavenothing：屌炸天这是，不过这句话报错了 gdat = ddply(dat, "educode", function(d) { male = d$int[d$gender == "男"]; female = d$int[d$gender == "女"]; data.frame(gender = c(rep("男", male), rep("女", female)), x = 1:(male + female)); });

回复第10楼的 daigazi：加载了plyr包吗？

R能不能绘制这种图形？？

wfldragon

要西

huhao2476

回复第8楼的 Ihavenothing：仰视！真的非常棒，这两个颜色的代码也记下了...

yihui

完全颠覆了我们对字体的印象，字体本来是字符到坐标信息的对应，而这个坐标信息是可以随意给的，没有人规定A的字体必须画出A的形状。

Ihavenothing

回复第22楼的 huhao2476：

其实就是ggplot2默认的颜色。

library(scales);<br />
hue_pal()(2);

bemyselfcc

[s:14][s:14]

不得不赞一下这个包，确实蛮强大的。。。[s:11]

« 上一页