StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

POGradient fill of geom_polygon
primarykey
Id
19987545
data
AcceptedAnswerId
20057229
AnswerCount
1
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-11-14T20:18:56.433
FavoriteCount
1
LastActivityDate
2013-11-18T21:45:12.307
LastEditDate
2013-11-14T21:09:11.483
LastEditorUserId
1450084
OwnerUserId
1450084
ParentId
0
PostTypeId
1
Score
6
ViewCount
1437
LastEditorDisplayName
text
Body
this code produces a chart with 3 polygons ... I'm creating a chart that shows 3 polygons, I'm not that much interested if there are better ways to draw the polygons (atually these polygons represent events and there is a duration for these events). What I'm interested in, in the first place, is the possibility to fill each polygon using a gradient. <pre><code># library("ggplot2") # library(data.table) ## some vectors event.day <- c("A", "A", "B", "B") event.time <- c(1, 2, 1, 2) event.duration <- c(1,2,3,1) sys <- c(100, 50, 50, 100) ## the data data.frame df.event <- data.frame(event.day, event.time,event.duration,sys) # ordering the data.frame df.event <- df.event[with(df.event, order(event.day, event.time)), ] # sys values of the next event df.event$sys.end <- c(df.event$sys[-1], NA) df.event$sys.min <- min(df.event$sys) df.event$sys.minday <- ave(df.event$sys, list(event.day), FUN=function(x) {min(x)}) df.event$sys.max <- max(df.event$sys) df.event$sys.maxday <- ave(df.event$sys, list(event.day), FUN=function(x) {max(x)}) # count all events df.event$cntTotalNoOfEvents <- seq_along(df.event$sys) # count the events within one day df.event$cntTotalNoOfEventsByDay <- ave( 1:nrow(df.event), df.event$event.day,FUN=function(x) seq_along(x)) # aggregate the number or events within one day df.event$TotalNoOfEventsByDay <- do.call(c, lapply(df.event$event.day, function(foo){ sum(df.event$event.day==foo) })) # the successor event df.event$event.successor <- c(df.event$cntTotalNoOfEvents[-1], NA) df.event$event.day <- factor(df.event$event.day, levels = unique(df.event$event.day)) event.day.level <- levels(df.event$event.day) df.event$event.day.level.ordinal <- as.numeric(match(df.event$event.day, event.day.level)) ## the position data.frame df.position <- data.frame(event.polygon = rep(c(1:nrow(df.event)), each = 4), polygon.x = 1, polygon.y = 1) df.position$event.polygon.point <- ave( 1:nrow(df.position), df.position$event.polygon,FUN=function(x) seq_along(x)) ## merge of the data and the positition data.frame dt.polygon <- data.table(merge(df.event, df.position, by.x = "cntTotalNoOfEvents", by.y = "event.polygon")) ## calculating the points of the polygon dt.polygon[dt.polygon$event.polygon.point == 1, polygon.x := event.day.level.ordinal - .5 * sys / sys.max ] dt.polygon[dt.polygon$event.polygon.point == 1, polygon.y := cntTotalNoOfEventsByDay] dt.polygon[dt.polygon$event.polygon.point == 2, polygon.x := event.day.level.ordinal - .5 * sys.end / sys.max] dt.polygon[dt.polygon$event.polygon.point == 2, polygon.y := cntTotalNoOfEventsByDay + event.duration] dt.polygon[dt.polygon$event.polygon.point == 3, polygon.x := event.day.level.ordinal + .5 * sys.end / sys.max] dt.polygon[dt.polygon$event.polygon.point == 3, polygon.y := cntTotalNoOfEventsByDay + event.duration] dt.polygon[dt.polygon$event.polygon.point == 4, polygon.x := event.day.level.ordinal + .5 * sys / sys.max] dt.polygon[dt.polygon$event.polygon.point == 4, polygon.y := cntTotalNoOfEventsByDay] p <- ggplot() p <- p + geom_polygon(data = dt.polygon ,aes( x = polygon.x ,y = polygon.y ,fill = sys ,group = cntTotalNoOfEvents ) ) p <- p + theme( panel.background = element_rect(fill="white") ) p <- p + scale_fill_gradient(guide = "colourbar", low = "lightgrey", high = "red") p <- p + coord_flip() p </code></pre> produces this chart <img src="https://i.stack.imgur.com/RJOZW.png" alt="enter image description here"> What I'm trying to achieve is something like this <img src="https://i.stack.imgur.com/tzNWi.png" alt="enter image description here"> , do you hav any ideas As always any hint is appreciated Tom
Tags
<r><ggplot2>
Title
Gradient fill of geom_polygon
singulars
PostAcceptedAnswerId
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
PostParentId
1. This table or related slice is empty.
PostTypePostTypeId
1. PTQuestion
UserLastEditorUserId
1. USTom Martens
UserOwnerUserId
1. USTom Martens
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. PL
 singulars
 LinkTypeLinkTypeId
 LTLinked
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. PO
 singulars
 PostTypePostTypeId
 PTAnswer
VotesPostIdCreationDate
1. VO
 singulars
 PostPostId
 POGradient fill of geom_polygon
 UserUserId
 This table or related slice is empty.
 VoteTypeVoteTypeId
 VTUpMod
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.