我有一個csv文件（crop_calendar.csv），其中包含特定區域中作物開發階段的信息。基本上每一行具有以下結構：繪製作物日曆
crop_name sowing_dat emergence_date flowering_date maturity_date harvest_date
它例如得出：
Winter_wheat 18.08 28.08 24.06 30.07 3.08
Winter_rye 18.08 28.08 15.06 23.07 29.07
Spring_wheat 27.04 10.05 1.07 4.08 7.08
Spring_barley 27.04 12.05 27.06 1.08 5.08
現在，我想將這些信息以圖形，看起來像： 
任何想法如何做到與大量的作物（行）和在不同的位置？
這裏是假設你有播種的每個作物和每個國家的三個時期的day.of.year（）和持續時間（天）的例子。
#making random numbers reproducible
set.seed(12345)
rawdata <- expand.grid(
Crop = paste("Crop", LETTERS[1:8]),
Country = paste("Country", letters[10:13])
)
#day.of.year of sowing
rawdata$Sowing <- runif(nrow(rawdata), min = 0, max = 365)
#number of days until mid season
rawdata$Midseason <- runif(nrow(rawdata), min = 10, max = 30)
#number of days until harvest
rawdata$Harvest <- runif(nrow(rawdata), min = 20, max = 150)
#number of days until end of harvest
rawdata$Harvest.end <- runif(nrow(rawdata), min = 10, max = 40)
dataset <- data.frame(Crop = character(0), Country = character(0), Period = character(0), Duration = numeric(0))
#sowing around new year
last.day <- rowSums(rawdata[, c("Sowing", "Midseason")])
if(any(last.day >= 365)){
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Sowing",
Duration = last.day[last.day >= 365] - 365
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Mid-season",
Duration = rawdata$Harvest[last.day >= 365]
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Harvest",
Duration = rawdata$Harvest.end[last.day >= 365]
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = NA,
Duration = 365 - rowSums(rawdata[last.day >= 365, c("Midseason", "Harvest", "Harvest.end")])
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Sowing",
Duration = 365 - rawdata$Sowing[last.day >= 365]
)
)
rawdata <- rawdata[last.day < 365, ]
}
#mid-season around new year
last.day <- rowSums(rawdata[, c("Sowing", "Midseason", "Harvest")])
if(any(last.day >= 365)){
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Mid-season",
Duration = last.day[last.day >= 365] - 365
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Harvest",
Duration = rawdata$Harvest.end[last.day >= 365]
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = NA,
Duration = 365 - rowSums(rawdata[last.day >= 365, c("Midseason", "Harvest", "Harvest.end")])
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Sowing",
Duration = rawdata$Midseason[last.day >= 365]
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Mid-season",
Duration = 365 - rowSums(rawdata[last.day >= 365, c("Sowing", "Midseason")])
)
)
rawdata <- rawdata[last.day < 365, ]
}
#harvest around new year
last.day <- rowSums(rawdata[, c("Sowing", "Midseason", "Harvest", "Harvest.end")])
if(any(last.day >= 365)){
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Harvest",
Duration = last.day[last.day >= 365] - 365
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = NA,
Duration = 365 - rowSums(rawdata[last.day >= 365, c("Midseason", "Harvest", "Harvest.end")])
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Sowing",
Duration = rawdata$Midseason[last.day >= 365]
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Mid-season",
Duration = rawdata$Harvest[last.day >= 365]
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[last.day >= 365, c("Crop", "Country")],
Period = "Harvest",
Duration = 365 - rowSums(rawdata[last.day >= 365, c("Sowing", "Midseason", "Harvest")])
)
)
rawdata <- rawdata[last.day < 365, ]
}
#no crop around new year
dataset <- rbind(
dataset,
cbind(
rawdata[, c("Crop", "Country")],
Period = NA,
Duration = rawdata$Sowing
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[, c("Crop", "Country")],
Period = "Sowing",
Duration = rawdata$Midseason
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[, c("Crop", "Country")],
Period = "Mid-season",
Duration = rawdata$Harvest
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[, c("Crop", "Country")],
Period = "Harvest",
Duration = rawdata$Harvest.end
)
)
dataset <- rbind(
dataset,
cbind(
rawdata[, c("Crop", "Country")],
Period = NA,
Duration = 365 - rowSums(rawdata[, c("Sowing", "Midseason", "Harvest")])
)
)
Labels <- c("", "Jan.", "Feb.", "Mar.", "Apr.", "May", "Jun.", "Jul.", "Aug.", "Sep.", "Okt.", "Nov.", "Dec.")
Breaks <- cumsum(c(0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31))
ggplot(dataset, aes(x = Crop, y = Duration, colour = Period, fill = Period)) + geom_bar(stat = "identity") + facet_wrap(~Country) + coord_flip() + scale_fill_manual(values = c("Sowing" = "darkgreen", "Mid-season" = "grey", "Harvest" = "yellow")) + scale_colour_manual(values = c("Sowing" = "black", "Mid-season" = "black", "Harvest" = "black"), guide = "none") + scale_y_continuous("", breaks = Breaks, labels = Labels, limits = c(0, 365)) + theme_bw() + theme(axis.text.x = element_text(hjust = 1))
猜測你想要做什麼有點困難。只有3個日期，你不能複製你顯示的圖表（每個作物需要4個日期）。數字代表什麼（大概幾周？）也不清楚。如果這只是一個關於陰謀的問題，這會讓你開始。否則，請澄清問題。
df <- read.table(text="crop_name emergence_date maturity_date harvest_date
wheat 13.04 25.05 30.06
corn 12.02 21.30 23.11", header=TRUE)
require(ggplot2)
ggplot(df, aes(x=crop_name)) +
geom_linerange(aes(ymin=emergence_date, ymax=maturity_date), color="green3", size=5) +
geom_linerange(aes(ymin=maturity_date, ymax=harvest_date), color="yellow", size=5) +
coord_flip() + ylim(0, 52)
謝謝！請注意，日期以day.month格式顯示。現在的問題是如何處理x軸的日期格式... – WAF
好了，所以編制的解答和更多的研究，這裏是我結束瞭解決方案：
inDf <- read.table(text="crop sowing emergence flowering maturity harvesting
Spring barley 27/04/2013 12/05/2013 27/06/2013 1/08/2013 5/08/2013
Oats 27/04/2013 10/05/2013 29/06/2013 6/08/2013 8/08/2013
Maize 25/05/2013 6/06/2013 18/08/2013 10/09/2013 12/09/2013", header=TRUE)
inDf[, "sowing"] <- as.Date(inDf[, "sowing"], format = '%d/%m/%Y')
inDf[, "emergence"] <- as.Date(inDf[, "emergence"], format = '%d/%m/%Y')
inDf[, "flowering"] <- as.Date(inDf[, "flowering"], format = '%d/%m/%Y')
inDf[, "maturity"] <- as.Date(inDf[, "maturity"], format = '%d/%m/%Y')
inDf[, "harvesting"] <- as.Date(inDf[, "harvesting"], format = '%d/%m/%Y')
ggplot(inDf, aes(x=crop)) +
geom_linerange(aes(ymin=sowing, ymax=emergence), color="green", size=5) +
geom_linerange(aes(ymin=emergence, ymax=flowering), color="green3", size=5) +
geom_linerange(aes(ymin=flowering, ymax=maturity), color="yellow", size=5) +
geom_linerange(aes(ymin=maturity, ymax=harvesting), color="red", size=5) +
coord_flip() + scale_y_date(lim = c(as.Date("2012-08-15"), as.Date("2013-09-01")),breaks=date_breaks(width = "1 month"), labels = date_format("%b"))+
ggtitle('Crop Calendar')+ xlab("")+ylab("")
這給： 
但
我想現在添加圖例並刪除每個月之間的所有白線。有任何想法嗎？由於
在每個geom_linerange()添加傳說的地方"color=.."的aes()調用內部，然後用參數guide="legend"添加scale_color_identity() - 這將使用顏色名稱作爲實際顏色。使用labels=您可以更改圖例中的標籤。要刪除幾個月之間的行，請在scale_y_date()內添加minor_breaks=NULL。
ggplot(inDf, aes(x=crop)) +
geom_linerange(aes(ymin=sowing, ymax=emergence, color="green"), size=5) +
geom_linerange(aes(ymin=emergence, ymax=flowering, color="green3"), size=5) +
geom_linerange(aes(ymin=flowering, ymax=maturity, color="yellow"), size=5) +
geom_linerange(aes(ymin=maturity, ymax=harvesting, color="red"), size=5) +
coord_flip() +
scale_y_date(lim = c(as.Date("2012-08-15"), as.Date("2013-09-01")),
breaks=date_breaks(width = "1 month"), labels = date_format("%b"),
minor_breaks=NULL)+
ggtitle('Crop Calendar')+ xlab("")+ylab("")+
scale_color_identity("",guide="legend",
labels=c("emergence","flowering","maturity","harvesting"))
請提供您嘗試過什麼是[重複的例子（http://stackoverflow.com/a/5963610/1412059）。 – Roland
將其作爲data.frame讀取，按位置分割，爲每個子集創建圖形 – Dennis
有了一個問題和半個答案，這也可能是一個問題，很難分辨您的問題現在是什麼以及這個賞金是什麼對於。也許如果答案沒有包含足夠的細節，請將自己的答案移到問題中，以便人們可以看到目前爲止所擁有的答案。然後問非常具體的問題？ –