小编qfd*_*qfd的帖子

在ggplot2中添加图例标题和主标题

嗨,我正在尝试使用ggplot2来执行以下操作

1)将图例名称更改为"asset"2)将标题添加到顶部3)将每个面板的边框更改为更加纯实的暗线4)想要更改每个面板图标题"corp"的名称和颜色等等

这就是我所拥有的,我不知道该怎么做任何帮助都非常感谢

p <- ggplot(mystratcodes, aes(x=annRisk, y = annRet))
p<- p + facet_grid(. ~ sector) + facet_wrap(~sector)
p<- p + geom_point(size=6, aes(color = (mystratcodes$subsector1))) 
p<-p+scale_x_continuous(labels = percent, name = "Annualized Risk")
p<-p+scale_y_continuous(labels = percent, name = "Annualized Return")
p<-p+ theme( legend.position = "bottom", legend.key = element_rect(colour = "grey"))
p<-p + scale_colour_manual(values = c("UTIL" = "#fdcc8a", "IND" = "#fc8d59", "FIN" =          "#d7301f","ABS" = "#74a9cf", "CMBS" = "#0570b0", "LA" = "#8c96c6", "SOV"= "#88419d", "SUPRA" = "#b3cde3"))
print(p)
Run Code Online (Sandbox Code Playgroud)

非常感谢

r ggplot2

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

枚举数据框中的组

我有下表

date        ui  mw  maxw    tC  HL    msurp
01/03/2004  A   10   10     eC  0.25   0.1
01/04/2004  A   10   10     eC  0.25   -0.1
01/03/2004  B   20   20     bC  0.5    0.3
01/03/2004  B   20   20     bC  0.25    0.3
Run Code Online (Sandbox Code Playgroud)

我要做的是在这个表中添加一个列,它基本上列举了ui,mw,maxw,tC和HL的唯一组合以及枚举

例如,在上表中

ui,mw,maxw,tC和HL的独特组合是

 A,10, 10, eC, 0.25
 B,20, 20, bC, 0.5
 B,20, 20, bC, 0.5
Run Code Online (Sandbox Code Playgroud)

共有3个,所以输出应该是这样的

date        ui  mw  maxw    tC  HL    msurp  counter
01/03/2004  A   10   10     eC  0.25   0.1    1
01/04/2004  A   10   10     eC  0.25   -0.1   1
01/03/2004  B   20   20 …
Run Code Online (Sandbox Code Playgroud)

python pandas pandas-groupby

5
推荐指数
1
解决办法
1081
查看次数

将数据添加到现有的ggplot2图中

我在cars数据集上使用ggplot2包.我已经创建了一个基于制造商的网格和按类编码的颜色.

我想要做的是:从数据集mdat.Data添加到网格中的每个绘图应该表示为数据点.我希望看到的输出是mdat中的数据在每个图中表示为点,类应该添加到图例中,我希望每个点用不同的颜色和形状表示.我不确定如何做到这一点,任何帮助表示赞赏.

非常感谢!

## Sample data
   p <- ggplot(mpg, aes(x=hwy, y=cty))
   p<- p + facet_grid(. ~ manufacturer) + facet_wrap(~manufacturer) 
   p<- p + geom_point(aes(colour = class), size = 7)
   p<- p + scale_colour_brewer()
   p<- p + geom_point(shape = 1, size = 7,  alpha = I(0.7))
   print(p) 



 ##now add on the randomn portfolios on another grid
   hwy = c("35", "40", "25")
   cty = c("20", "25", "10")
   mdat <- data.frame(hwy,cty)
   mdat$class <- c("generic1", "generic2", "generic3")
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

r ggplot2

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

在R中提取带小数和空格的数字

想知道是否有人可以帮我解决这个问题.我在下面有这些数据.

[1] "Compared with 3 months earlier . . . . . . . . 123 (100.0) 11 (8 .9 60 (48. 8) 48 (39.0) 4 (3.3) . . . . . . . . . . . . . ."       
[2] "Compared with 3 months earlier . . . . . . . . 124 ( 100.0) 18 (14. 5) 60 (48.4) 42 (33 .9) 4 (3. 2) . . . . . . . . . . . …
Run Code Online (Sandbox Code Playgroud)

r

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

根据最小数值填充NaN

我有一个矩阵A,我想在每列中填充NaN,直到遇到数值.

A = 
     [ 0 0 0
       0 0 6
       5 7 0]
Run Code Online (Sandbox Code Playgroud)

应该

A = 
     [NaN NaN NaN
      NaN NaN 6
      5   7   0]
Run Code Online (Sandbox Code Playgroud)

有没有办法对这个问题进行矢量化,而不是在两个for循环步骤中进行

谢谢你的帮助!

matlab matrix nan

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

在熊猫群中保持秩序

我有一个如下所示的数据框

univ  date            ms      cs
 C    11/01/1977      0.2     0.1
 C    11/02/1977      0.3     0.4
 B    11/01/1977      0.6     -0.1
 B    11/02/1977      0.55    -0.5
 A    11/01/1977      0.23    0.2
 A    11/02/1977      0.12    0.15
 etc
Run Code Online (Sandbox Code Playgroud)

这是我目前所拥有的

fig, axes = plt.subplots(1, 3, figsize=(15, 5))

for (universe, group), ax in zip(df.groupby([df.univ]), axes.flatten()):
    group.plot(x='ms', y='cs', kind='scatter', ax=ax, title=universe)
    ax.set_xlim(0, 1)
    ax.set_ylim(0, 1)
Run Code Online (Sandbox Code Playgroud)

这将产生3个散点图,范围从0到1。我想做的是将标点的顺序保持为C,B,A,以便按A,B,C进行排序。

谢谢你的帮助!

python matplotlib pandas

-1
推荐指数
1
解决办法
922
查看次数

标签 统计

r ×3

ggplot2 ×2

pandas ×2

python ×2

matlab ×1

matplotlib ×1

matrix ×1

nan ×1

pandas-groupby ×1