a <- c(35,15,20,25)
names(a) <- c('蘭鋳','出目金','流金','土佐金')
a

##   蘭鋳 出目金   流金 土佐金 
##     35     15     20     25

COL <- c(rgb(200,10,200,25,max=255),
rgb(100,100,100,25,max=255),rgb(255,25,255,55,max=255),
rgb(0,83,255,55,max=255))
p <- a/sum(a)*100
pie(p,labels=paste(names(a),round(a,1),'%'),col=COL,clockwise = T,main='金魚の売り上げ')
library(plotly)

##  要求されたパッケージ ggplot2 をロード中です

## 
##  次のパッケージを付け加えます: 'plotly'

##  以下のオブジェクトは 'package:ggplot2' からマスクされています:
## 
##     last_plot

##  以下のオブジェクトは 'package:stats' からマスクされています:
## 
##     filter

##  以下のオブジェクトは 'package:graphics' からマスクされています:
## 
##     layout

plot_ly(type='pie',textinfo='label+percent',values=a,labels=names(a))%>%
layout(title = '金魚の売り上げ')

import matplotlib.pyplot as plt
import numpy as np

x = np.array([35,15,20,25])

labels = ['蘭鋳','出目金','流金','土佐金' ]

plt.pie(x, labels = labels,
        startangle = 90,
        counterclock = False,
        autopct = '%1.1f%%')

## ([<matplotlib.patches.Wedge object at 0x0000021F3BE16FC0>, <matplotlib.patches.Wedge object at 0x0000021F3BC70620>, <matplotlib.patches.Wedge object at 0x0000021F3BE17B30>, <matplotlib.patches.Wedge object at 0x0000021F3BE500B0>], [Text(1.0073506527883973, 0.4418649820101046, '蘭鋳'), Text(0.3571694673931416, -1.0403989482703737, '出目金'), Text(-0.8092962540148123, -0.7450097806321689, '流金'), Text(-0.8092963237676587, 0.7450097048603818, '土佐金')], [Text(0.5494639924300347, 0.2410172629146025, '36.8%'), Text(0.19481970948716812, -0.5674903354202038, '15.8%'), Text(-0.44143432037171576, -0.4063689712539103, '21.1%'), Text(-0.44143435841872286, 0.4063689299238446, '26.3%')])

plt.show()

## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 34349 (\N{CJK UNIFIED IDEOGRAPH-862D}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)
## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 37619 (\N{CJK UNIFIED IDEOGRAPH-92F3}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)
## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 20986 (\N{CJK UNIFIED IDEOGRAPH-51FA}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)
## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 30446 (\N{CJK UNIFIED IDEOGRAPH-76EE}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)
## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 37329 (\N{CJK UNIFIED IDEOGRAPH-91D1}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)
## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 27969 (\N{CJK UNIFIED IDEOGRAPH-6D41}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)
## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 22303 (\N{CJK UNIFIED IDEOGRAPH-571F}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)
## C:\Users\TIU sota kurihara\AppData\Local\Programs\R\R-4.3.3\library\reticulate\python\rpytools\call.py:7: UserWarning: Glyph 20304 (\N{CJK UNIFIED IDEOGRAPH-4F50}) missing from current font.
##   value, error = rpycall.call_r_function(f, *args, **kwargs)