请问这张图是用R哪个包画出来的？

2017-5-14 17:21:10

qiu435 发表于 2017-5-9 17:01
ggplot2 包的马赛克图，坐标设置为极坐标

ggplot(data=dat,mapping = aes(x=type,y=year,fill=death))
只可惜画不出
（1）最外头那一圈代表疾病的分类，“A,B,C...”
（2）那一圈年份不知怎么镶嵌进去
（3）中间那个空白的圆圈怎么画

附件列表

polar.jpeg

原图尺寸 311.94 KB

zzz.rar

大小:575 Bytes

data

本附件包括：

zzz.csv

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-14 18:44:59

ggplot(data=dat,mapping=aes(x=type,y=year,fill=death))

怎么去掉中间那个圆圈里的那一个小条呀

附件列表

polar.jpeg

原图尺寸 325.49 KB

bbb.rar

大小:3.46 KB

data

本附件包括：

bbb.csv

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-15 09:06:19

cheetahfly 发表于 2017-4-15 17:20
用ggplot2包中的geom_tile() + coord_polar()可以达到类似的效果，但细节的地方要你自己再探索尝试一下：
...

library(ggplot2)
data(diamonds)

ggplot(data=diamonds[1:100,],mapping = aes(x=color,y=cut,fill=depth))+geom_tile(mapping=aes(fill=depth))+coord_polar()

附件列表

www.jpeg

原图尺寸 76.26 KB

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-24 15:52:09

An implementation using graphics only:

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-24 17:19:02

zhangyangsmith 发表于 2017-5-24 15:52
An implementation using graphics only:

谢谢！可是代码在运行到如下行时，就提示出错了
Error in seq(from = lAngRngbgn, to = lAngRngbgn, to = lAngRngend, length.out = 101) :
  object 'lAngRngbgn' not found

# Fill in data

lapply(
  grep( "year", names(dfPlt) ),
  function(i)
  {
ivY <-
   as.integer(
gsub( "year", "", grep( "year", names(dfPlt), value = TRUE ) )
      )

iRad <- ivY + iYearMap

lapply(
   seq.int(iNclass - 1),
   function(j)
   {
lAngRng <- fIndToAng(j)

dvAng <- seq(from = lAngRngbgn,to=lAngRngbgn, to = lAngRngend, length.out = 101)

polygon(
   x = c( iRad*sin(dvAng), rev( (iRad + 1)*sin(dvAng) ) ),
   y = c( iRad*cos(dvAng), rev( (iRad + 1)*cos(dvAng) ) ),
   border = NA, col = hsv( h = iHue, s = dfPlt[j, i], v = 1 )
         )
   }
   )
  }
   )
最后的图形是这样的

附件列表

zaq.jpg

原图尺寸 226.54 KB

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-24 20:35:50

tmdxyz 发表于 2017-5-24 17:19
谢谢！可是代码在运行到如下行时，就提示出错了
Error in seq(from = lAngRngbgn, to = lAngRngbgn, to ...

What kind of error did you get? Can you please make sure you have the exact same structure of the dataset as I do:

复制代码

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-25 06:28:06

zhangyangsmith 发表于 2017-5-24 20:35
What kind of error did you get? Can you please make sure you have the exact same structure of the ...

在运行程序的前面一些代码时，没有问题，也得得到像您所说的正确的数据dfPlt，见附图。
继续往下执行，直到下面这段语句
# Fill in data
# Fill in data
lapply(
  grep( "year", names(dfPlt) ),
  function(i)
  {
ivY <-
   as.integer(
gsub( "year", "", grep( "year", names(dfPlt), value = TRUE ) )
      )

iRad <- ivY + iYearMap

lapply(
   seq.int(iNclass - 1),
   function(j)
   {
lAngRng <- fIndToAng(j)

dvAng <- seq(from = lAngRngbgn,to=lAngRngbgn, to = lAngRngend, length.out = 101)

polygon(
   x = c( iRad*sin(dvAng), rev( (iRad + 1)*sin(dvAng) ) ),
   y = c( iRad*cos(dvAng), rev( (iRad + 1)*cos(dvAng) ) ),
   border = NA, col = hsv( h = iHue, s = dfPlt[j, i], v = 1 )
         )
   }
   )
  }
   )

就开始出现错误提示：
Error in seq(from = lAngRngbgn, to = lAngRngbgn, to = lAngRngend, length.out = 101) :
  object 'lAngRngbgn' not found

难道有可能是您的代码在网页中显示不当吗？请看截图

附件列表

cxz.jpg

原图尺寸 499.18 KB

rew.jpg

原图尺寸 19.84 KB

head.jpg

原图尺寸 234.54 KB

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-30 07:23:06

zhangyangsmith 发表于 2017-5-24 15:52
An implementation using graphics only:

可能是网页在显示代码方面的瑕疵，我仔细核对了一下可能出错的地方，代码见附件。可是依然得不到与你一样的图形。请问，问题究竟在哪里呢？

您能不能把您的回帖中的代码另存为文本文件或R文件，然后放出来供大家学习？

附件列表

Rplot.png

原图尺寸 93.81 KB

Rplot.rar

大小:1.89 KB

本附件包括：

Rplot.R

Rplot.pdf

大小:784.35 KB

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-5-30 09:10:55

zhangyangsmith 发表于 2017-5-24 15:52
An implementation using graphics only:

刚才又试了一下，看起来，在复制他的代码的时候（除了网页显示的代码有瑕疵外），之所以不能出来与你一样的图形，问题主要出在# Fill in data以及# Write names of diseases这两段语句里。我把它们挪到最后，运行其余所以全部语句，只留下这两段语句不运行，就能得到以下图形。

附件列表

www.jpg

原图尺寸 150.15 KB

两个关键的语句.rar

大小:2.09 KB

本附件包括：

两个关键的语句.r

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-6-1 17:33:29

tmdxyz 发表于 2017-5-30 09:10
刚才又试了一下，看起来，在复制他的代码的时候（除了网页显示的代码有瑕疵外），之所以不能出来与你一样 ...

The original codes have been edited. There are two indices missed in the codes. I have no clue why this happened as they did exist in my local version of the scripts.

polarCoordinates.R.txt
大小:(5.05 KB)

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

peterlovejin

2017-6-1 22:30:10

果然, 有很多大神存在~~

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

2017-6-2 04:55:19

zhangyangsmith 发表于 2017-6-1 17:33
The original codes have been edited. There are two indices missed in the codes. I have no clue why ...

非常感谢！这回已经没有任何问题了。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝