8000 r2d3/R/r2d3.r at master · blehman/r2d3 · GitHub

Address: [go: up one dir, main page]

Include Form Remove Scripts Accept Cookies Show Images Show Referer Rotate13 Base64 Strip Meta Strip Title Session Cookies

Skip to content

Navigation Menu

All Features
- By Stage
  Enterprises
  Team
  Startups
  Nonprofits
- By Industry
  Healthcare
  Financial services
  Manufacturing
  Government
  See all industries
- Evaluate GitHub
  Why GitHub
  Customer Stories
  Business insights
  Trust Center
- Add-ons
  GitHub Advanced SecurityEnterprise-grade code security
  Copilot for businessEnterprise-grade AI features
  Premium SupportEnterprise-grade 24/7 support
- Learn & Connect
  Documentation
  Resource center
  Blog
  Events & webinars
  Community Forum
  Customer Stories
  Integrations
- Support
  Customer support
  Training
  GitHub Status
- Company
  About
  Partners
  Changelog
- GitHub Universe
  GitHub UniverseThe event for developers, by developers — talks, workshops, and what’s next for GitHub.
Pricing

Appearance settings

You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session.

Dismiss alert

blehman
r2d3

Repository navigation

Code
Pull requests
Actions
Projects
Wiki
Security and quality
Insights

Breadcrumbs

r2d3
R

/

r2d3.r

Copy path

More file actions

More file actions

Latest commit

History

History

15 lines (14 loc) · 368 Bytes

Breadcrumbs

r2d3
R

/

r2d3.r

Copy path

File metadata and controls

15 lines (14 loc) · 368 Bytes

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

#' Render a ggplot2 graphic using d3.

#'

#' @param x plot

#' @param path location to save json/html

#' @export

#' @examples

#' p <- qplot(displ, hwy, data = mpg)

#' r2d3(p, "mpg.json")

#' r2d3(p + geom_smooth(), "mpg-smooth.json")

r2d3 <- function(x, path) {

stopifnot(is.ggplot(x))

stopifnot(is.character(path), length(path) == 1)

cat(json(x), file = path)

}

Footer

© 2026 GitHub, Inc.

Footer navigation

Terms
Privacy
Security
Status
Community
Docs
Contact

You can’t perform that action at this time.

0