R语言怎么根据系谱作图

library(devtools)
install_github("luansheng/visPedigree")

test = data.frame(ID = 1:8,Sire = c("A","A","A",1,1,1,5,5),Dam = c("B","B","B",2,3,"B",2,3))
test

library(visPedigree)
visped(tidyped(test))

系谱 语言 学习 内容 就是 思路 情况 文章 更多 知识 知识点 示例 篇文章 跟着 软件 软件包 问题 实践 推送 研究 数据库的安全要保护哪些东西 数据库安全各自的含义是什么 生产安全数据库录入 数据库的安全性及管理 数据库安全策略包含哪些 海淀数据库安全审计系统 建立农村房屋安全信息数据库 易用的数据库客户端支持安全管理 连接数据库失败ssl安全错误 数据库的锁怎样保障安全 互联网金融科技 喔噻互联网科技有限公司 新华互联网科技 广州大一互联网络科技有限公司 互联网科技英文 互联网科技上市公司 伴你行互联网科技有限公司 天下捷融互联网科技 互联网科技的未来发展 博兴的互联网电子科技公司 剑昆互联网络科技有限公司临桂 杭州壁岐互联网科技有限公司 玉溪新华互联网科技好不好 卓翼科技产业互联网合作 长沙互联网科技 电子商务与互联网科技的关系 浙南科技城互联网大厦招聘 互联网科技年终奖 陕西云淼互联网科技公司 陕西九四连强互联网科技有限公司 互联网科技股 互联网科技公司简介 关于新基建和互联网科技 互联网金融科技平台 科技互联网创业计划书 科技类公司包括互联网吗 黑科技 体验场景 互联网大会 山东星卡互联网科技有限公司官网 三亚科技创新互联网基地 黑龙江互联网科技公司