{"id":18501573,"url":"https://github.com/const-ae/ggquadrilateral","last_synced_at":"2025-05-14T07:32:03.660Z","repository":{"id":82391830,"uuid":"204890523","full_name":"const-ae/ggquadrilateral","owner":"const-ae","description":"A quadrilateral geom for ggplot2","archived":false,"fork":false,"pushed_at":"2019-08-28T11:14:17.000Z","size":89,"stargazers_count":2,"open_issues_count":0,"forks_count":0,"subscribers_count":2,"default_branch":"master","last_synced_at":"2025-02-17T01:42:13.864Z","etag":null,"topics":["ggplot-extension","ggplot2","polygon","quadrilateral","rstats"],"latest_commit_sha":null,"homepage":null,"language":"R","has_issues":true,"has_wiki":null,"has_pages":null,"mirror_url":null,"source_name":null,"license":null,"status":null,"scm":"git","pull_requests_enabled":true,"icon_url":"https://github.com/const-ae.png","metadata":{"files":{"readme":"README.Rmd","changelog":null,"contributing":null,"funding":null,"license":null,"code_of_conduct":null,"threat_model":null,"audit":null,"citation":null,"codeowners":null,"security":null,"support":null,"governance":null,"roadmap":null,"authors":null,"dei":null,"publiccode":null,"codemeta":null}},"created_at":"2019-08-28T09:01:38.000Z","updated_at":"2024-05-21T20:19:29.000Z","dependencies_parsed_at":"2023-04-19T23:31:37.315Z","dependency_job_id":null,"html_url":"https://github.com/const-ae/ggquadrilateral","commit_stats":null,"previous_names":[],"tags_count":0,"template":false,"template_full_name":null,"repository_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/const-ae%2Fggquadrilateral","tags_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/const-ae%2Fggquadrilateral/tags","releases_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/const-ae%2Fggquadrilateral/releases","manifests_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories/const-ae%2Fggquadrilateral/manifests","owner_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners/const-ae","download_url":"https://codeload.github.com/const-ae/ggquadrilateral/tar.gz/refs/heads/master","host":{"name":"GitHub","url":"https://github.com","kind":"github","repositories_count":254095150,"owners_count":22013712,"icon_url":"https://github.com/github.png","version":null,"created_at":"2022-05-30T11:31:42.601Z","updated_at":"2022-07-04T15:15:14.044Z","host_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub","repositories_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repositories","repository_names_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/repository_names","owners_url":"https://repos.ecosyste.ms/api/v1/hosts/GitHub/owners"}},"keywords":["ggplot-extension","ggplot2","polygon","quadrilateral","rstats"],"created_at":"2024-11-06T13:54:19.897Z","updated_at":"2025-05-14T07:32:03.634Z","avatar_url":"https://github.com/const-ae.png","language":"R","funding_links":[],"categories":[],"sub_categories":[],"readme":"---\noutput: github_document\n---\n\n\u003c!-- README.md is generated from README.Rmd. Please edit that file --\u003e\n\n```{r, include = FALSE}\nknitr::opts_chunk$set(\n  collapse = TRUE,\n  comment = \"#\u003e\",\n  fig.path = \"man/figures/README-\",\n  out.width = \"70%\"\n)\nset.seed(1)\n```\n# ggquadrilateral\n\n\u003c!-- badges: start --\u003e\n\u003c!-- badges: end --\u003e\n\n`ggquadrilateral` provides a [ggplot2](https://ggplot2.tidyverse.org/index.html) geom that can draw\narbitrary quadrilaterals in a convenient way.\n\n## Installation\n\nYou can install the latest version of ggquadrilateral from [GitHub](https://github.com/const-ae/ggquadrilateral) with:\n\n```{r eval=FALSE}\ndevtools::install_github(\"const-ae/ggquadrilateral\")\n```\n\nIf you don't already have devtools installed, you can get it from CRAN with `install.packages(\"devtools\")`.\n\n## Example\n\nFirst load `ggplot2` and the `ggquadrilateral` package\n\n```{r example}\nlibrary(ggplot2)\nlibrary(ggquadrilateral)\n```\n\nThe simplest example is to just define the positions of the four corners manually\n\n```{r}\nkite_df \u003c- data.frame(\n  left_tip_x = 2,\n  left_tip_y = 7,\n  top_tip_x = 3,\n  top_tip_y = 8,\n  right_tip_x = 4,\n  right_tip_y = 7,\n  bottom_tip_x = 3,\n  bottom_tip_y = 3\n)\nkite_df\n```\n\n```{r}\nggplot(kite_df) +\n  geom_quadrilateral(aes(x1=left_tip_x, y1 = left_tip_y,\n                         x2 = top_tip_x, y2 = top_tip_y,\n                         x3 = right_tip_x, y3 = right_tip_y,\n                         x4 = bottom_tip_x, y4 = bottom_tip_y),\n                     color = \"black\", fill = \"purple\", size=4) +\n  xlim(-2, 8) + ylim(0, 10)\n```\n\n\nIt can also be used to visualize more complex data.\nWe will now use it to draw the triangle mesh for\n10 random points.\n\n```{r}\ndf \u003c- data.frame(x=rnorm(n=10, mean=0, sd=1),\n                 y=rnorm(n=10, mean=0, sd=1))\n\nggplot(df, aes(x=x, y=y)) +\n  geom_point()\n\n```\n\n\nWe will use the [`tripack`](https://cran.r-project.org/web/packages/tripack/index.html) package\nto calculate the Delauney triangulation.\n\n```{r}\nlibrary(tripack)\ntriang \u003c- as.data.frame(triangles(tri.mesh(df)))\ntriang_df \u003c- data.frame(id = seq_len(nrow(triang)),\n           p1x = df$x[triang$node1],\n           p1y = df$y[triang$node1],\n           p2x = df$x[triang$node2],\n           p2y = df$y[triang$node2],\n           p3x = df$x[triang$node3],\n           p3y = df$y[triang$node3])\nhead(triang_df)\n```\n\nUsing the `triang_df` that the coordinates for the 12 interpolating triangles we can make the plot:\n\n```{r}\nggplot() +\n  geom_quadrilateral(data=triang_df, \n                     mapping = aes(\n                       x1 = p1x, y1 = p1y,\n                       x2 = p2x, y2 = p2y,\n                       x3 = p3x, y3 = p3y,\n                       # We want triangles, so we make the\n                       # fourth point identical to the third\n                       x4 = p3x, y4 = p3y,\n                       fill = as.factor(id)),\n                     color = \"black\") +\n  geom_point(data= df, aes(x=x, y=y), size = 3) \n```\n\n\n\n","project_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fconst-ae%2Fggquadrilateral","html_url":"https://awesome.ecosyste.ms/projects/github.com%2Fconst-ae%2Fggquadrilateral","lists_url":"https://awesome.ecosyste.ms/api/v1/projects/github.com%2Fconst-ae%2Fggquadrilateral/lists"}