R 在Shiny中，如何创建图形分数图？

我正在尝试创建一个与下图相同的图表，输出图表是压缩的，我无法控制其尺寸或将其插入框中

这是使用过的代码

 library(ECharts2Shiny)
 library(echarts4r)

 gender = data.frame(gender=c("Male", "Female"), value=c(65, 35),
 path = c('path://M18.2629891,11.7131596 L6.8091608,11.7131596 C1.6685112,11.7131596 0,13.032145 0,18.6237673 L0,34.9928467 C0,38.1719847 4.28388932,38.1719847 4.28388932,34.9928467 L4.65591984,20.0216948 L5.74941883,20.0216948 L5.74941883,61.000787 C5.74941883,65.2508314 11.5891201,65.1268798 11.5891201,61.000787 L11.9611506,37.2137775 L13.1110872,37.2137775 L13.4831177,61.000787 C13.4831177,65.1268798 19.3114787,65.2508314 19.3114787,61.000787 L19.3114787,20.0216948 L20.4162301,20.0216948 L20.7882606,34.9928467 C20.7882606,38.1719847 25.0721499,38.1719847 25.0721499,34.9928467 L25.0721499,18.6237673 C25.0721499,13.032145 23.4038145,11.7131596 18.2629891,11.7131596 M12.5361629,1.11022302e-13 C15.4784742,1.11022302e-13 17.8684539,2.38997966 17.8684539,5.33237894 C17.8684539,8.27469031 15.4784742,10.66467 12.5361629,10.66467 C9.59376358,10.66467 7.20378392,8.27469031 7.20378392,5.33237894 C7.20378392,2.38997966 9.59376358,1.11022302e-13 12.5361629,1.11022302e-13',
           **strong text**'path://M28.9624207,31.5315864 L24.4142575,16.4793596 C23.5227152,13.8063773 20.8817445,11.7111088 17.0107398,11.7111088 L12.112691,11.7111088 C8.24168636,11.7111088 5.60080331,13.8064652 4.70917331,16.4793596 L0.149791395,31.5315864 C-0.786976655,34.7595013 2.9373074,35.9147532 3.9192135,32.890727 L8.72689855,19.1296485 L9.2799493,19.1296485 C9.2799493,19.1296485 2.95992025,43.7750224 2.70031069,44.6924335 C2.56498417,45.1567684 2.74553639,45.4852068 3.24205501,45.4852068 L8.704461,45.4852068 L8.704461,61.6700801 C8.704461,64.9659872 13.625035,64.9659872 13.625035,61.6700801 L13.625035,45.360657 L15.5097899,45.360657 L15.4984835,61.6700801 C15.4984835,64.9659872 20.4191451,64.9659872 20.4191451,61.6700801 L20.4191451,45.4852068 L25.8814635,45.4852068 C26.3667633,45.4852068 26.5586219,45.1567684 26.4345142,44.6924335 C26.1636859,43.7750224 19.8436568,19.1296485 19.8436568,19.1296485 L20.3966199,19.1296485 L25.2043926,32.890727 C26.1862111,35.9147532 29.9105828,34.7595013 28.9625083,31.5315864 L28.9624207,31.5315864 Z M14.5617154,0 C17.4960397,0 19.8773132,2.3898427 19.8773132,5.33453001 C19.8773132,8.27930527 17.4960397,10.66906 14.5617154,10.66906 C11.6274788,10.66906 9.24611767,8.27930527 9.24611767,5.33453001 C9.24611767,2.3898427 11.6274788,0 14.5617154,0 L14.5617154,0 Z'))
gender %>%e_charts(gender) %>% e_x_axis(splitLine=list(show = FALSE), 
       axisTick=list(show=FALSE),
       axisLine=list(show=FALSE),
       axisLabel= list(show=FALSE)) %>%
e_y_axis(max=200, 
       splitLine=list(show = FALSE),
       axisTick=list(show=FALSE),
       axisLine=list(show=FALSE),
       axisLabel=list(show=FALSE)) %>%
e_color(color = c('#FF4E50','#eee')) %>%
e_pictorial(value, symbol = path, z=10, name= 'realValue', 
          symbolBoundingData= 100, symbolClip= TRUE) %>% 
e_pictorial(value, symbol = path, name= 'background', 
          symbolBoundingData= 100) %>% 
 e_labels(position = "bottom", offset= c(0, 10), 
       textStyle =list(fontSize= 20, fontFamily= 'Arial', 
                       fontWeight ='bold', 
                       color= '#FF4E50'),
       formatter="{@[1]}% {@[0]}") %>%
 e_legend(show = FALSE) %>%
 e_theme("westeros")

server <- function(input, output) {}

库（echarts2s）
图书馆（echarts4r）
性别=数据帧（性别=c（“男性”，“女性”），值=c（65,35），
路径=c('path://M18.2629891，11.7131596 L6.8091608，11.7131596 C1.6685112，11.7131596 0，13.0321450，18.6237673 L0，34.9928467 C0，38.1719847 4.28388932，38.1719847 4.28388932，34.9928467 L4.65591984，20.0216948 L5.74941883，20.0216948 L5.74941883，61.000787 C5.74941883，65.2508314 11.58201，65.126879111.21377.11777.11757.26.26878719.2541414141414141414141414141414141414199 38.714141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141414141417，65.7，65.7，65.7.7 7 7 7 7 7 7 7 7 7 7.7 7 7 7 7 7 7 7 7 7.7 7 7 7 7.7 7 7 7 7 7 7 7.7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7.7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7四,784742,1.11022302e-13 17.8684539,2.38997966 17.8684539,5.33237894 C17.8684539,8.27469031 15.4784742,10.66467 12.5361629,10.66467 C9.59376358,10.66467.20378392,8.27469031 7.20378392,5.33237894 C7.20378392,2.3899799.59376358,1.11022302e-13.53629,1，
**强文本**'path://M28.9624207，31.5315864 L24.4142575，16.4793596 C23.5227152，13.8063773 20.8817445，11.7111088 17.0107398，11.7111088 L12.112691，11.7111088 C8.241686636，11.7111088 5.60080331，13.8064652 4.70917331，16.4793596 L0.149791395，31.5315864 C-0.786976655，34.7595013 2.9373074，35.47533.279932.79989，9.775050242424 2.7 7.5050242424 2.7 7 7 7 7 7，44.6924335 C2.5649498417，45.1567683 3 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6.7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4191451，4.48525268 68 18 19.84848419 19 19.8484848419.8484848419 19.848484848419 19.84848419 19.843636568 19.1296485 19 19.1296485 19 19.29296485 19.848436568 19.2828282819.2828282828282828288484848484365656568 19.84848484848484868686568 19 19.28282828282828282828282819 19 19 19 19 19 19 19 19 19 19 19.29296428282841414141414141414141414141414141414119 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19.292828282828284141414141414141414141414141414141864 ZM14.5617154,0 C17.4960397,0 19.8773132,2.3898427 19.8773132,5.33453001 C19.8773132,8.27930527 17.4960397,10.66906 14.5617154,10.66906 C11.6274788,10.66906 9.2461767,8.27930527 9.2461767,5.33453001 C9.2461767,2.389874788,0 14.5617154,0 L14.561715
性别%>%e_图表（性别）%%>%e_x_轴（分割线=列表（显示=假），
axisTick=list（show=FALSE），
axisLine=列表（show=FALSE），
axisLabel=list（show=FALSE））%>%
e_y_轴（最大值=200，
拆分线=列表（显示=假），
axisTick=list（show=FALSE），
axisLine=列表（show=FALSE），
axisLabel=list（show=FALSE））%>%
e#U颜色（颜色=c（'FF4E50'，'eee'））%>%
e_画报（值，符号=路径，z=10，名称='realValue'，
symbolBoundingData=100，symbolClip=TRUE）%>%
e_画报（值，符号=路径，名称='背景'，
symbolBoundingData=100）%
e_标签（位置=“底部”，偏移量=c（0,10），
textStyle=list（fontSize=20，fontFamily='Arial'，
fontwweight='bold'，
颜色='#FF4E50'），
格式化程序=“{@[1]}%{@[0]}”）%%>%
e_图例（显示=假）%>%
e_主题（“韦斯特罗斯”）
服务器