R语言问题，求大神代码

Question

任意找R包中自带的一个数据集，要求包含数值型数据和字符型数据；2）自定义一个函数，针对任意一个data.frame数据集作为输入时，能够输出data.frame数据列的列名、每列行数、每列的数据类型（数值型、字符型等）以及水平个数（对于字符型）或者列平均值；

Answer 1

以R自带iris数据为例，一个参考代码。