Displaying 20 results from an estimated 2000 matches similar to: "bwplot puts the bars in the wrong place"
2010 Apr 20
0
Fwd: Re: bwplot puts the bars in the wrong place
Peter, that finally worked.
hrs = seq(1, 24, 1)
g = bwplot(tt~OnHFact |Runway, data=gdf, ylab="Taxi time (min)",
main=title, xlab="Hour of day", par.strip.text=list(cex=0.7),
rot=90, xlim=c(0, 25),
drop.unused.levels=FALSE, scales=list(x = list(rot=90, cex=.6
,at=hrs, labels=hrlabs
)),
panel =
2010 Apr 09
2
How to use tapply for quantile
I am trying to calculate quantiles of a data frame column split up by
two factors:
# Calculate the quantiles
quarts = tapply(gdf$tt, list(gdf$Runway, gdf$OnHour), FUN=quantile,
na.rm = TRUE)
This does not work:
> quarts
04L 04R 15R 22L 22R 27 32
33L 33R
0 NULL Numeric,5 NULL Numeric,5 NULL Numeric,5 NULL
Numeric,5 NULL
1 NULL
2010 Mar 20
3
How to select a row from one dataframe that is "close" to a row in another dataframe
I have two data frames of flight data, but they have very different
numbers of rows. They come from different sources, so the data are not
identical.
> names(oooi)
[1] "FltOrigDt" "MkdCrrCd"
[3] "MkdFltNbr" "DprtTrpnStnCd"
[5] "ArrTrpnStnCd" "ActualOutLocalTimestamp"
2010 Apr 01
2
pdf files in loops
I need to make a bunch of PDF files of histograms. I tried
gatelist = unique(mdf$ArrivalGate)
for( gate in gatelist) {
outfile = paste("../", airport, "/", airport, "taxiHistogram", gate,
".pdf", sep="")
pdf(file = outfile, width = 10, height=8, par(lwd=1))
title=paste("Taxi time for Arrival Gate", gate, "by
2010 Feb 01
3
merging data frames gives all NAs
Dear kind R helpers,
I have a vector of runway names in rwy ("31R", "31L",... the number is
user selectable)
arrgnd is a data frame with data for all flights and all runways, with a
Runway column.
I am trying to subset arrgnd into a dat frame for each selected runway,
and then combine them back together using the following code:
for (j in 1:nr) { # nr = number of
2011 Jun 08
3
How to suppress factor labels
I am using ggplot2 to make a boxplot that overlays a scatterplot:
pp = qplot(time, error, data=times, size=I(1), geom="jitter", main=title,
ylab="Error (min)", xlab="Time before ON (min)", alpha=I(1/10),
color=times$runway,
ylim=c(-30,40))
pp2 = pp + with(times, facet_wrap(~ runway, ncol=2))
print(pp2 + geom_boxplot(alpha=.5,
2011 May 25
2
Importing fixed-width data
I have a data set where the lines look like:
2011-05-13 00:00:00 EONAAL330 dfa13002516PSCNONA
2011-05-13 00:00:01 EONAAL223 laa13044510AS.NONM
Some lines are missing the field before and after the NON:
2011-05-13 00:00:05 EONBHS229 mia13001621NON
I read them into R using
df = read.fwf(file, widths=c(19,-4,7,3,8,2,1,3,1),
2011 Jun 07
2
ggplot2 and facet
I have a data frame (attached) that has interpolated EOT errors for
each minute before flight landing. It also has the runway and an index
for the flight:
> > times[1:4,]
time error runway flight
1 0 -0.02206235 04R 1
2 1 -0.07961631 04R 1
3 2 -0.13795380 04R 1
4 3 -0.20726073 04R 1
> > sapply(times, class)
time error
2011 Jun 10
1
Double x grid in ggplot2
I am trying to overlay raw data with a boxplot as follows:
pp = qplot(factor(time, levels=0:60, ordered=TRUE),
error, data=dfsub, size=I(1), main =" title", ylab="Error
(min)",
xlab="Time before ON (min)", alpha=I(1/10),
ylim=c(-30,40), geom="jitter") +
facet_wrap(~ runway, ncol=2) +
2011 Jul 17
1
How to speed up interpolation
df is a very large data frame with arrival estimates for many flights
(DF$flightfact) at random times (df$PredTime). The error of the estimate
is df$dt.
My problem is that I want to know the prediction error at each minute
before landing. This code works, but is very slow, and dominates
everything. I tried using split(), but that rapidly ate up my 12 GB of
memory. So, is there a better R way of
2011 Aug 27
2
Am having trouble calling a function
In my main R program, I have
source("retaanalysis/Functions/doAirport.R")
.... stuff to read data and calculate ads
sapply(ads, function(x) {doAirport(x, base)} )
And doAirport has
# analyze the flights for a given airport
doAirport = function(df, base) {
# Get rid of unused runway factor levels (from other airports)
df$lrw <- drop.levels(df$lrw) # In gdata package
#
2010 Jan 16
3
Comparing dates in dataframes
I have two data frames. One (arr) has all arrivals to an airport for a
year, and the other (gw) has the dates and quarter hour of the day when
the weather is good. arr has a Date and quarter hour column.
>names(arr)
[1] "Date" "weekday" "hour" "month" "minute"
[6] "quarter" "ICAO"
2003 Dec 31
2
Plot grouped data: How to change x-axis? (nlme)
Hallo!
GENERAL QUESTION:
I'm trying to change the tick marks of the x-axis in a
grouped data plot (nlme).
CONCRETE EXAMPLE:
In the example (see below) I want the x-axis to have
tick marks at 0, 6, 12, 18, 24. How can I do this?
WHAT I TRIED
I tried "normal" methods like axis(...) but this does
not work with this plot. And I also tried xlim=c(0,24)
but the ticks are unchanged and
2006 Mar 20
3
can''t get my rss to validate with feedtools
I know that I''m doing something wrong, but I can''t figure out what.
I''ve looked at every wiki and tutorial I can find on feedtools but I
still can''t get my rss feed working. Here''s my code.
feed = FeedTools::Feed.new
feed.entries << FeedTools::FeedItem.new
feed.entries[0].author.name = "Charlie Bowman"
feed.entries[0].title =
2010 Apr 15
4
Does "sink" stand for anything?
Hello Everyone,
Learning about R and its wonderful array of functions. If it's not obvious, I usually try to find out what a function stands for. I think this helps me remember better.
One function that has me stumped is "sink." Can anyone tell me if this stands for something?
Thanks,
Paul
__________________________________________________
[[alternative HTML
2003 Jul 13
3
r-question
I am student in Iran(IUT) that work on R software as
my project. I need to some data frames in version
1.7.0, but these are not available. please help me.
2006 May 19
2
system of tab
Hello, I would like to create a system of tab by means of Ajax (like
in netvibes). Somebody would have a track(runway). A library to be
used....
Thank you in advance.
2006 Sep 25
4
Beginner question: select cases
Hello all,
I hope i chose the right list as my question is a beginner-question.
I have a data set with 3 colums "London", "Rome" and "Vienna" - the
location is presented through a 1 like this:
London Rome Vienna q1
0 0 1 4
0 1 0 2
1 0 0 3
....
....
....
I just want to calculate the means of a variable q1.
I tried following script:
# calculate the mean
2010 Sep 20
1
Adjusting Font Size: lattice / bwplot
Hello,
If you run the following code with lattice installed:
bwplot(voice.part ~ height, data=singer, xlab="Height (inches)")
There will be some text in the graph e.g. Soprano 1, Soprano 2, etc -
60, 65, etc and the title: Height (Inches). How can one make the font
for this text larger and/or bold? Also, is there a way to thicken or
bold the lines of the box and whisker plot?
Thank
2007 Apr 26
2
evaluation in unattached namespace
Hi,
I recently discovered this buglet in lattice: If lattice is _not_
attached, I get
> lattice::dotplot(~1:10)
Error in eval(expr, envir, enclos) : could not find function "bwplot"
This happens because of this:
> lattice:::dotplot.formula
function (x, data = NULL, panel = "panel.dotplot", ...)
{
ocall <- ccall <- match.call()
ccall$data <- data