因此，我的目的是显示并发卫生技术的时间轴，其持续时间为矩形或平铺几何图形，其宽度代表在x轴上指定时间间隔内的持续时间，并由制造商沿着Y轴显示。
我有2001年1月1日至2016年3月31日期间来自4个不同制造商的16个案例
我正在使用ggplot2和timeline软件包。下面的例子在网上找到的，我修改了数据，只列标题：Device，Manufacturer，StartDate，EndDate，以及确保有没有空的情况。因此，我为迄今为止仍被许可的许多技术添加了人为的终止日期。
再次尝试使用样本数据，我们有：
device.data <- data.frame(
DeviceName = c("Cypher Sirolimus DES", "Taxus Express 2", "Cypher Select Sirolimus DES",
"Cypher Select Plus Sirolimus DES", "Taxus Liberte", "Endeavor ABT578",
"Endeavor Sprint Zotarolimus DES", "Xience V", "Taxus Element Monrail ION",
"Xience Nano", "Promus Element Plus", "Xience Prime",
"Endeavor Resolute DES","Endeavor Resolute Integrity DES", "Promus Premier", "Xience Xpedition LL and SV"),
DeviceManufacturer = c("Cordis Cashel","Boston Scientific","Cordis Cashel",
"Cordis Cashel","Boston Scientific","Medtronic Inc", …