{"id":2000,"date":"2017-07-14T18:17:04","date_gmt":"2017-07-14T17:17:04","guid":{"rendered":"http:\/\/pcool.dyndns.org:8080\/statsbook\/?page_id=2000"},"modified":"2025-07-01T21:02:02","modified_gmt":"2025-07-01T20:02:02","slug":"interactive-plot","status":"publish","type":"page","link":"https:\/\/pcool.dyndns.org\/index.php\/interactive-plot\/","title":{"rendered":"Interactive Plot"},"content":{"rendered":"\n

Rather than creating static plots that can be printed on paper, it is also possible to create interactive plots for publication on a web site. The user can than interact with the plot for example to zoom in or change parameters.<\/p>\n\n\n\n

For example, the time series plot<\/a> could be saved to a web page as an interactive plot, using the use the plotly package1<\/a><\/sup>.<\/p>\n\n\n\n

The easiest way to create an interactive plot is to first create the plot using ggplot22<\/a><\/sup> and then convert it to an interactive plot with the plotly3<\/a><\/sup>.<\/p>\n\n\n\n

1: Create the plot <\/strong><\/p>\n\n\n\n

The data set temp<\/a> contains the daily temperature and dew point. It contains three variables: Date, temp and dewpoint. Once loaded into R, the data frame can be viewed:<\/p>\n\n\n\n

> temp<\/span>\ntemp dewpoint       Date\n1   11.9      7.1 2015-05-11\n2   14.2      4.7 2015-05-12\n3   14.2      4.7 2015-05-12<\/span><\/em>\n--- omitted for brevity<\/span><\/span><\/em><\/code><\/pre>\n\n\n\n
The individual variables can be addressed:<\/p>\n\n\n\n
temp$Date<\/em><\/span>\ntemp$temp<\/em><\/span>\ntemp$dewpoint<\/em><\/span><\/code><\/pre>\n\n\n\n
To create a time series of the temperature and the dew point, first make sure the ggplot24<\/a><\/sup> and scales5<\/a><\/sup> packages are loaded<\/a>:<\/p>\n\n\n\n
library(ggplot2)<\/em><\/span>\nlibrary(scales) # to access breaks\/formatting functions<\/em><\/span><\/code><\/pre>\n\n\n\n
Now create a new window (dev.new()), use the ggplot library, apply a black and white theme, show data points and fit a smooth trend line (red for temp and blue for dewpoint). Following this, create a title and appropriate axes labels. When adding annotations, it is necessary to address the coordinates of the x-axis as a date (rather than a number or string). Finally, format the date axis as appropriate (here 3 monthly):<\/p>\n\n\n\n
dev.new()<\/em><\/span>\nggplot() +<\/em><\/span>\ntheme_bw() +<\/em><\/span>\ngeom_point(aes(x=Date, y=temp), data=temp, colour='#ff0000') +<\/em><\/span>\ngeom_smooth(aes(x=Date, y=temp), data=temp, colour='#ff0000', method='loess') +<\/em><\/span>\ngeom_point(aes(x=Date, y=dewpoint), data=temp, shape=17, <\/em><\/span>\ncolour='#0000ff') +<\/em><\/span>\ngeom_smooth(aes(x=Date, y=dewpoint), data=temp, method='loess') +<\/em><\/span>\nggtitle(label='Temperature and Dew Point') +<\/em><\/span>\nylab(label='Temp deg Celsius') +<\/em><\/span>\nxlab(label='Date') +<\/em><\/span>\nannotate(geom='text', x=as.Date('2015-06-15'), y=28,<\/em><\/span>\nlabel='Temperature', fontface='bold') +<\/em><\/span>\nannotate(geom='text', x=as.Date('2015-06-15'), y=26, label='Dew Point', fontface='bold') +<\/em><\/span>\nannotate('segment', x=as.Date('2015-05-01'), xend=as.Date('2015-05-10'), y=28, yend=28, colour='red') +<\/em><\/span>\nannotate('segment', x=as.Date('2015-05-01'), xend=as.Date('2015-05-10'), y=26, yend=26, colour='blue') +<\/em><\/span>\nscale_x_date(labels=date_format('%m\/%y'), <\/em><\/span>\nbreaks=date_breaks('3 months')) # this scales the x axis.<\/em><\/span><\/code><\/pre>\n\n\n\n
Please note that the code can be copied and pasted into the console. <\/p>\n\n\n\n
\"\"<\/figure>\n\n\n\n
2: Convert to an interactive plot<\/strong><\/p>\n\n\n\n
The above plot can now be converted to an interactive plot with the plotly package6<\/a><\/sup>.<\/p>\n\n\n\n
Define the plot as an object and give it a name (ie temp_plot).<\/p>\n\n\n\n
temp_plot <- <\/mark><\/em>ggplot() +<\/em><\/span>\ntheme_bw() +<\/em><\/span>\ngeom_point(aes(x=Date, y=temp), data=temp, colour='#ff0000') +<\/em><\/span>\ngeom_smooth(aes(x=Date, y=temp), data=temp, colour='#ff0000', method='loess') +<\/em><\/span>\ngeom_point(aes(x=Date, y=dewpoint), data=temp, shape=17, <\/em><\/span>\ncolour='#0000ff') +<\/em><\/span>\ngeom_smooth(aes(x=Date, y=dewpoint), data=temp, method='loess') +<\/em><\/span>\nggtitle(label='Temperature and Dew Point') +<\/em><\/span>\nylab(label='Temp deg Celsius') +<\/em><\/span>\nxlab(label='Date') +<\/em><\/span>\nannotate(geom='text', x=as.Date('2015-06-15'), y=28,<\/em><\/span>\nlabel='Temperature', fontface='bold') +<\/em><\/span>\nannotate(geom='text', x=as.Date('2015-06-15'), y=26, label='Dew Point', fontface='bold') +<\/em><\/span>\nannotate('segment', x=as.Date('2015-05-01'), xend=as.Date('2015-05-10'), y=28, yend=28, colour='red') +<\/em><\/span>\nannotate('segment', x=as.Date('2015-05-01'), xend=as.Date('2015-05-10'), y=26, yend=26, colour='blue') +<\/em><\/span>\nscale_x_date(labels=date_format('%m\/%y'), <\/em><\/span>\nbreaks=date_breaks('3 months')) # this scales the x axis.<\/em><\/span><\/code><\/pre>\n\n\n\n
Please note that the code can be copied and pasted into the console.<\/p>\n\n\n\n
The plot will now show but will be stored as an object. To show the plot in R, simply enter:<\/p>\n\n\n\n
temp_plot<\/span><\/em><\/code><\/pre>\n\n\n\n
plot already shown above<\/p>\n\n\n\n
The plotly package7<\/a><\/sup> should be installed<\/a>.<\/p>\n\n\n\n
library(plotly)<\/span><\/em>\nggplotly(temp_plot)<\/span><\/em><\/code><\/pre>\n\n\n\n
The plot should now appear in your web browser. The folder that contains the files to create the plot is shown in the address bar of your browser. This folder will be deleted when you close R, so leave R open. Go to the folder shown in the address bar of your browser and copy the folder with all its subfolders and paste it to your web server. Set up a link and the plot should be available on your server:<\/p>\n\n\n\n
Temperature plot<\/a><\/p>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
Rather than creating static plots that can be printed on paper, it is also possible to create interactive plots for publication on a web site. The user can than interact with the plot for example to zoom in or change parameters. For example, the time series plot could be saved to a web page as an […]<\/p>\n","protected":false},"author":2,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"inline_featured_image":false,"footnotes":""},"class_list":["post-2000","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/pages\/2000","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/comments?post=2000"}],"version-history":[{"count":5,"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/pages\/2000\/revisions"}],"predecessor-version":[{"id":4746,"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/pages\/2000\/revisions\/4746"}],"wp:attachment":[{"href":"https:\/\/pcool.dyndns.org\/index.php\/wp-json\/wp\/v2\/media?parent=2000"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}