小编Dom*_*nik的帖子

用ggplot2画一个圆圈

也许这是一个愚蠢的问题,但我找不到ggplot2手册中的答案,也没有找到"阿姨"谷歌......

如果我有一个中点和一个直径,如何用ggplot2绘制一个圆作为附加图层?谢谢你的帮助.

geometry r ggplot2

55
推荐指数
6
解决办法
3万
查看次数

使用ggplot2将点与线组合

我想绘制一个如下所示的时间序列:

在此输入图像描述

我的情节:

qplot(Jahr, Wert, data=tu, group = Geschlecht, color = Altersgr) + facet_grid(Geschlecht ~ Land)
Run Code Online (Sandbox Code Playgroud)

我的数据如下:

  Land   Altersgr Geschlecht Jahr  Wert
1   DE    < 20 J.          m 2000  13.0
2   DE  20-<65 J.          m 2000  25.7
3   DE     65+ J.          m 2000  70.1
4   DE  65-<80 J.          m 2000  44.2
5   DE     80+ J.          m 2000 213.5
6   BB    < 20 J.          m 2000  26.8
Run Code Online (Sandbox Code Playgroud)

到目前为止一切都很好.但我必须用一条线连接相应的点(相同的颜色).我无法弄清楚如何做到这一点.如果我使用geom_line()我得到了这个结果:

在此输入图像描述

这不是我想要的......我只是觉得我忽略了什么......

有什么建议?谢谢你们的帮助.

r ggplot2

30
推荐指数
2
解决办法
13万
查看次数

如何使用ggplot2标记带有正负条的条形图条

我正在尝试使用带有正负条的ggplot2绘制标记的条形图. 到目前为止,这是有效的,但我想在标签之外设置标签,使其位于条形图的上方或下方.我试图设置在调节vjust = c(x1,...,xn)其中x是根据在栏的值的正的或负的值geom_text().这不起作用.我刚收到错误消息错误:" 设置美学时,它们可能只取一个值.问题:vjust"

使用正常的plot命令.我想在ggplot2中复制这个命令:

xpos <- barplot(d, col=mycols, main='Verteilung in Dresden 2004',
         ylab='Anteil in %', xlab='Milieu', names.arg=l, 
         cex.axis=0.7, cex.names=0.7, ylim=c(0,max(d)+0.05))
boxed.labels(xpos,d+0.02,sprintf('%d%s', d*100, '%'),
          bg='transparent', border=FALSE, cex=0.7)
Run Code Online (Sandbox Code Playgroud)

所以看起来这很好...... ;-)

有人有什么建议吗?

谢谢你的帮助.

r ggplot2

28
推荐指数
1
解决办法
2万
查看次数

tm_map在Mac上的R 3.0.1中有parallel :: mclapply错误

我在平台上使用R 3.0.1:x86_64-apple-darwin10.8.0(64位)

我正在尝试使用tm库中的tm_map.但是当我执行这段代码时

library(tm)
data('crude')
tm_map(crude, stemDocument)
Run Code Online (Sandbox Code Playgroud)

我收到此错误:

Warning message:
In parallel::mclapply(x, FUN, ...) :
  all scheduled cores encountered errors in user code
Run Code Online (Sandbox Code Playgroud)

有谁知道这方面的解决方案?

parallel-processing r mclapply tm

17
推荐指数
3
解决办法
2万
查看次数

使用ggplot2在堆积条形图中对分类数据进行排序

我有一个包含以下条目的矩阵:

dput(MilDis[1:200,])
structure(list(hhDomMil = c("HED", "ETB", "HED", "ETB", "PER", 
"BUM", "EXP", "TRA", "TRA", "PMA", "MAT", "MAT", "KON", "ETB", 
"PMA", "PMA", "HED", "BUM", "BUM", "HED", "PMA", "PMA", "HED", 
"TRA", "BUM", "EXP", "BUM", "PMA", "ETB", "MAT", "ETB", "ETB", 
"KON", "MAT", "TRA", "BUM", "BUM", "TRA", "TRA", "PMA", "PMA", 
"PMA", "MAT", "ETB", "TRA", "BUM", "TRA", "MAT", "BUM", "ETB", 
"TRA", "TRA", "BUM", "KON", "ETB", "ETB", "ETB", "BUM", "KON", 
"ETB", "ETB", "PMA", "TRA", "PER", "PER", "MAT", "HED", "KON", 
"TRA", "TRA", "TRA", "EXP", "TRA", "BUM", "MAT", "MAT", …
Run Code Online (Sandbox Code Playgroud)

r ggplot2 geom-bar

13
推荐指数
3
解决办法
1万
查看次数

ggplot2绘图表为行

我想绘制以下数据集

structure(list(X = structure(c(3L, 12L, 11L, 7L, 13L, 2L, 1L, 
10L, 5L, 4L, 8L, 14L, 9L, 6L), .Label = c("BUM", "DDR", "ETB", 
"EXP", "HED", "HEDOS", "KON", "LEIT", "MAIN", "MAT", "PER", "PMA", 
"TRA", "TRADITION"), class = "factor"), Geschaeft = c(0.0468431771894094, 
0.0916666666666667, 0.0654761904761905, 0.0905432595573441, 0.0761904761904762, 
0.0672097759674134, 0.0869565217391304, 0.0650887573964497, 0.0762250453720508, 
0.0518234165067179, 0.0561330561330561, 0.060077519379845, 0.0865384615384615, 
0.0628683693516699), Gaststaette = c(0.0855397148676171, 0.0604166666666667, 
0.0555555555555556, 0.0764587525150905, 0.0895238095238095, 0.0712830957230143, 
0.075098814229249, 0.0631163708086785, 0.0780399274047187, 0.0383877159309021, 
0.0561330561330561, 0.0581395348837209, 0.0596153846153846, 0.0648330058939096
), Bank = c(0.065173116089613, 0.0854166666666667, 0.0972222222222222, 
0.0824949698189135, 0.060952380952381, 0.0529531568228106, 0.0731225296442688, 
0.0828402366863905, 0.0725952813067151, …
Run Code Online (Sandbox Code Playgroud)

r ggplot2

8
推荐指数
1
解决办法
2458
查看次数

着色分组和facet_wrap ggplot中的线条

我有以下数据框:

structure(list(milieu = structure(c(3L, 9L, 8L, 6L, 10L, 2L, 
    1L, 7L, 5L, 4L, 3L, 9L, 8L, 6L, 10L, 2L, 1L, 7L, 5L, 4L, 3L, 
    9L, 8L, 6L, 10L, 2L, 1L, 7L, 5L, 4L, 3L, 9L, 8L, 6L, 10L, 2L, 
    1L, 7L, 5L, 4L, 3L, 9L, 8L, 6L, 10L, 2L, 1L, 7L, 5L, 4L, 3L, 
    9L, 8L, 6L, 10L, 2L, 1L, 7L, 5L, 4L, 3L, 9L, 8L, 6L, 10L, 2L, 
    1L, 7L, 5L, 4L, 3L, 9L, 8L, 6L, 10L, 2L, 1L, …
Run Code Online (Sandbox Code Playgroud)

r ggplot2

7
推荐指数
1
解决办法
4110
查看次数

与ggplot2的二分网络图

我有以下数据框:

structure(list(X1 = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 
4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 6L, 6L, 6L
), .Label = c("1", "2", "3", "4", "5", "6"), class = "factor"), 
    X2 = structure(c(1L, 6L, 8L, 10L, 12L, 13L, 3L, 4L, 1L, 6L, 
    7L, 9L, 10L, 12L, 13L, 3L, 4L, 5L, 10L, 12L, 13L, 4L, 1L, …
Run Code Online (Sandbox Code Playgroud)

r ggplot2 bipartite

7
推荐指数
1
解决办法
2404
查看次数

R部分II的重量数据

给出以下数据框:

structure(list(UH6401 = c(1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 
1, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 
1, 1, 1, 1, 0, 0, 0, 0, 1, 1, 0, 1, 1, 0, 0, 1, 1, 1, 1, 1, 0, 
0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 
1, 1, …
Run Code Online (Sandbox Code Playgroud)

statistics r spss

5
推荐指数
2
解决办法
9832
查看次数

绘制facet_wrap中的平均线

我有以下数据集:

structure(list(Geschaeft = c(0.0961028525512254, 0.0753516756309475, 
0, 0.0722803347280335, 0, 0.000877706260971328), Gaststaette = c(0.0981116914423463, 
0.0789718659495242, 0.0336538461538462, 0.0905857740585774, 0, 
0.00175541252194266), Bank = c(0.100843712334271, 0.0717832023169218, 
0.00480769230769231, 0.025, 0.00571428571428572, 0.00965476887068461
), Hausarzt = c(0.0633989554037766, 0.0589573851882499, 0.0288461538461538, 
0.0217573221757322, 0.00685714285714286, 0.0128730251609128), 
    Einr..F..Aeltere = c(0.0337484933708317, 0.0550268928423666, 
    0.00480769230769231, 0, 0.00114285714285714, 0.000292568753657109
    ), Park = c(0.0738449176376055, 0.0726623913942904, 0.0625, 
    0.0846234309623431, 0.00228571428571429, 0.112053832650673
    ), Sportstaette = c(0.0449979911611089, 0.0612846503930492, 
    0.00480769230769231, 0.0619246861924686, 0.00114285714285714, 
    0), OEPNV = c(0.10847730012053, 0.089056681836988, 0.264423076923077, 
    0.135669456066946, 0, 0.185488589818607), Mangel.an.Gruenflaechen = c(0.0867818400964243, 
    0.071369466280513, 0.144230769230769, 0.117259414225941, 
    0.260571428571429, 0.186951433586893), Kriminalitaet = c(0.108316593009241, 
    0.083678113363674, …
Run Code Online (Sandbox Code Playgroud)

r ggplot2

4
推荐指数
1
解决办法
4042
查看次数

根据频率用符号绘制地理地图

我想根据县内疾病的频率绘制一个具有n个正方形的地理地图.像这样的人: 在此输入图像描述

但我无法弄清楚如何用R或qGIS做到这一点.谢谢你们的帮助.

gis r qgis

4
推荐指数
2
解决办法
1904
查看次数

ggplot不会标记点数

我现在尝试了超过1.5小时,但我无法让标签工作......: -

我有以下矩阵clVrd

            [,1]        [,2] [,3]
 [1,]  0.6618725 -0.04065907    1
 [2,]  0.4646620  0.09859806    2
 [3,]  0.9388307  0.05681554    3
 [4,]  1.1809942  0.12906415    4
 [5,]  1.5476428  0.49644973    5
 [6,] -0.1855485  0.30445869    6
 [7,]  0.4525888  0.49559198    7
 [8,] -0.4004534 -0.06419374    8
 [9,] -1.0669191  0.17292748    9
[10,] -0.9372038  0.02601539   10
[11,]  0.5617849 -5.21857716   11
[12,] -0.9370099 -0.05539107   12
[13,]  0.6803453  0.21223368   13
[14,]  1.3040601  0.47598799   14
Run Code Online (Sandbox Code Playgroud)

我尝试使用以下命令绘制它

ggplot() + geom_point(data=data.frame(clVrd), mapping=aes(x=clVrd[,1], y=clVrd[,2], label=clVrd[,3]))
Run Code Online (Sandbox Code Playgroud)

即使我在clVrd中设置了rownames

rownames(clVrd) <- seq(1:14)
Run Code Online (Sandbox Code Playgroud)

它仍然无法正常工作.绘制的情节,但没有标签......有人可以告诉我为什么?

谢谢你的帮助!

更新:daroczig提到的方式有效,但我需要在更复杂的情节中添加图层.

整个代码是:

ggplot() + geom_segment(data=data.frame(test), …
Run Code Online (Sandbox Code Playgroud)

plot r ggplot2

3
推荐指数
1
解决办法
4114
查看次数

自制的闪亮桌子

我想知道如何逐个单元格创建一个(html)表格,其中包含闪亮的动态内容?现在我正在使用以下组合:

server.R

output$desc <- renderTable(
  hdx.desc()
)

ui.R

tabsetPanel(
  tabPanel("Description", tableOutput("desc"))
)
Run Code Online (Sandbox Code Playgroud)

这效果很好。我想设置一些单元格的链接,并向表格添加一些额外的布局设置,如粗体、无边框等,并且也不希望在前面添加行号。

我怎样才能做到这一点?我尝试了 HTML() 命令,但它不起作用。感谢您的帮助。

html r shiny shiny-server

2
推荐指数
1
解决办法
2695
查看次数