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