R pie 通过table绘制 区分二联表不支持

示例：

• 1：数据准备

library(“vcd”)
attach(Arthritis)
summary(Arthritis)
ID Treatment Sex Age Improved
Min. : 1.00 Placebo:43 Female:59 Min. :23.00 None :42
1st Qu.:21.75 Treated:41 Male :25 1st Qu.:46.00 Some :14
Median :42.50 Median :57.00 Marked:28
Mean :42.50 Mean :53.36
3rd Qu.:63.25 3rd Qu.:63.00
Max. :84.00 Max. :74.00

我们以其中的Treatment列作为举例数据， 具体数据成分如下：

table(Treatment)
Treatment
Placebo Treated
43 41

2：数据准备好之后我们开始学习看看吧

例一： 要绘制一个最最简单的饼图， 看看Treatment列中， Placebo(安慰剂), Treated（治疗）的比例， 仅此而已。

pie1 <- table(Treatment)
pie1
Treatment
Placebo Treated
43 41
pie(pie1)
图像显示结果如下：

函数自动根据table()函数产生的列名， 默认指定了每一块labels的名称， 往下后面会看到对label的边界
————————————————
版权声明：本文为CSDN博主「PhoenixFlyAway」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/ForRubyDownLoad/article/details/50734284

实战：
table（）
二联表应只统计一类下几组数据

drug_influence <- read.table('drug_influence.txt',header = T,encoding = 'UTF-8')
drug_influence
drugtable <- table(drug_influence)
drugtable
class(drug_influence)
drugtable <- table(drug_influence$druga,drug_influence$drugb)
drugtable
pie(drugtable)

> drug_influence <- read.table('drug_influence.txt',header = T,encoding = 'UTF-8')
Warning message:
In read.table("drug_influence.txt", header = T, encoding = "UTF-8") :
  incomplete final line found by readTableHeader on 'drug_influence.txt'
> drug_influence
      druga drugb
area1   112   230
area2   288   117
> drugtable <- table(drug_influence)
> drugtable
     drugb
druga 117 230
  112   0   1
  288   1   0
> class(drug_influence)
[1] "data.frame"
> drugtable <- table(drug_influence$druga,drug_influence$drugb)
> drugtable
     
      117 230
  112   0   1
  288   1   0
> pie(drugtable)

table二联表数据类型不支持