如何使极坐标的角度与ggplot2中的曝光比例相关？

Question

假设我在R中有以下数据：

mydata <- data.frame(Group=1:5, Profit=seq(60, 100, by=10), 
Count=seq(50000, 10000, by=-10000))

我可以绘制一个条形图，显示按组划分的利润：

r1 <- ggplot(data=mydata, aes(x=Group, y=Profit, fill=Group))
r1 + 
  geom_bar(stat="identity") +
  scale_fill_gradient(low="khaki", high="turquoise4") +
  labs(title="Group 5 is the most profitable segment") 

我还可以绘制饼图，显示按组划分的暴露比例（计数）：

r2 <- ggplot(data=mydata, aes(x="", y=Count, fill=Group))
r2 + 
  geom_bar(width=1, stat="identity") +
  scale_fill_gradient(low="khaki", high="turquoise4") +
  coord_polar(theta="y", start=0) +
  labs(title="We have significant exposure in lower Groups") 

我想做的就是结合以上内容，使饼图的角度与r2中每个组级别的曝光比例相关，而且还要增加/减小每个“切片”的大小（即半径），取决于r1中每个组级别的利润。

非常感谢您的帮助。

谢谢

Answer 1

docker exec -e "CORE_PEER_LOCALMSPID=Org1MSP" -e "CORE_PEER_MSPCONFIGPATH=/opt/gopath/src/github.com/hyperledger/fabric/peer/crypto/peerOrganizations/org1.example.com/users/Admin@org1.example.com/msp" cli peer chaincode install -n mychaincode-v 1.0 -p "$CC_SRC_PATH" -l "$CC_RUNTIME_LANGUAGE"