ggplot2 - R y axis normal -


i trying scale y-axis of plot normal distribution. example, plot.

the output of code gives me plot.

an equivalent "scale_y_normal" not exist, wondering if has ideas this? present code completeness, purely ggplot2 question please focus on last few lines of code. thanks!

library(foreign) # load foreign package (converts data files r) library(survey)  # load survey package (analyzes complex design surveys) library(ggplot2)   #-----------------------------------download , importation function download.nhanes.file <- function( ftp.filepath ){      # create temporary file downloading file local drive     tf <- tempfile()      # download file using ftp.filepath specified     download.file(          # download file stored in location designated above         ftp.filepath ,         # save file temporary file assigned above         tf ,          # download binary file type         mode = "wb"     )      # variable 'tf' contains full file path      # on local computer specified file      read.xport( tf )    # last line of function contains *returns*                 # putting read.xport final line,                 # function return r data frame }    #-----------------------------------download files , creata data.frame x1112 <-  download.nhanes.file("ftp://ftp.cdc.gov/pub/health_statistics/nchs/nhanes/2011-2012/glu_g.xpt")  x0910 <-  download.nhanes.file("ftp://ftp.cdc.gov/pub/health_statistics/nchs/nhanes/2009-2010/glu_f.xpt")  x0708 <- download.nhanes.file("ftp://ftp.cdc.gov/pub/health_statistics/nchs/nhanes/2007-2008/glu_e.xpt")  x0506 <- download.nhanes.file("ftp://ftp.cdc.gov/pub/health_statistics/nchs/nhanes/2005-2006/glu_d.xpt")  x0304 <- download.nhanes.file("ftp://ftp.cdc.gov/pub/health_statistics/nchs/nhanes/2003-2004/l10am_c.xpt")  x0102 <- download.nhanes.file("ftp://ftp.cdc.gov/pub/health_statistics/nchs/nhanes/2001-2002/l10am_b.xpt")  x9900 <- download.nhanes.file("ftp://ftp.cdc.gov/pub/health_statistics/nchs/nhanes/1999-2000/lab10am.xpt")   #rename 'lbdglusi' (only 99-02) colnames(x0102)[5] <- 'lbdglusi' colnames(x9900)[5] <- 'lbdglusi'  #add column year x1112[,3] <- '11-12' x0910[,3] <- '09-10' x0708[,3] <- '07-08' x0506[,3] <- '05-06' x0304[,3] <- '03-04' x0102[,3] <- '01-02' x9900[,3] <- '99-00'  #name varaible year colnames(x1112)[3] <- 'year' colnames(x0910)[3] <- 'year' colnames(x0708)[3] <- 'year' colnames(x0506)[3] <- 'year' colnames(x0304)[3] <- 'year' colnames(x0102)[3] <- 'year' colnames(x9900)[3] <- 'year'  #stack data.frames on top of each other final <- rbind(x1112[,c("lbdglusi", "year")], x0910[,c("lbdglusi", "year")], x0708[,c("lbdglusi", "year")],  x0506[,c("lbdglusi", "year")], x0304[,c("lbdglusi", "year")], x0102[,c("lbdglusi", "year")], x9900[,c("lbdglusi", "year")])  #-----------------------------------plot cumulative fasting blood glucose year ggplot(final, aes(x=final$lbdglusi, color=year)) +  geom_point(aes(y=..y..),stat="ecdf") + xlab(expression(paste('serum glucose mm'))) +  ylab('fraction of population') + ggtitle('nhanes fasting blood glucose') +  coord_trans(x = 'log10')


Comments

Post a Comment

Popular posts from this blog

Magento/PHP - Get phones on all members in a customer group -

i working on custom magento extension. working around adminhtml part , i've created custom form there. here form code: <?php class vivasindustries_smsnotification_block_adminhtml_sms_sendmass_edit_form extends mage_adminhtml_block_widget_form { public function _preparelayout() { $extensionpath = mage::getmoduledir('js', 'vivasindustries_smsnotification'); $head = $this->getlayout()->getblock('head'); $head->addjs('jquery.js'); $head->addjs('vivas.js'); return parent::_preparelayout(); } protected function _prepareform() { $form = new varien_data_form(array( 'id' => 'edit_form', 'action' => $this->geturl('*/*/save', array('id' => $this->getrequest()->get...
Read more

php - Bypass Geo Redirect for specific directories -

i'm trying bypass redirect specific url within site. wondering if might able help. the code below code use, original urls replaces example.com i'd able access http://example.com/admin without redirect occuring. is there way this, , there way using own ip? function country_geo_redirect() { $country = getenv('http_geoip_country_code'); if ($country == "us" ) { wp_redirect("http://usa.example.com/"); exit; } else if ($country == "gb" ) { wp_redirect("http://uk.example.com/"); exit; } } add_action('init', 'country_geo_redirect'); you can bypass redirection code if server found ip address. if ip address == <my ip address> ' nothing here else country_georedirect() end if
Read more

php - .htaccess mod_rewrite for dynamic url which has domain names -

i want convert url ex:( example.com/link.php?url=facebook.com ) ( example.com/facebook.com.php ) how can using .htaccess. or there other process make job easier ? i tried adding script .htaccess file options +followsymlinks rewriteengine on rewriterule url-(.*)\.htm$ link.php?url=$1 but converting url adding "url-" ( example.com/url-facebook.com.php ) i want remove "url-" , want make ( example.com/facebook.com.php ) rewriteengine on rewritecond %{the_request} ^get.*link\.php\?url\= [nc] rewritecond %{request_uri} !/system/.* [nc] rewriterule (.*?)link\.php\?url\=/*(.*) /$1$2 [r=301,ne,l] not sure how above work edit of used use remove index.php url
Read more