add first post
This commit is contained in:
Kyle Belanger
parent
4a3db1b9db
commit
f1723b5ec6
9 changed files with 610 additions and 65 deletions
|
|
@ -1,5 +1,8 @@
|
||||||
project:
|
project:
|
||||||
type: website
|
type: website
|
||||||
|
render:
|
||||||
|
- "*.qmd"
|
||||||
|
- "!old_posts/"
|
||||||
|
|
||||||
website:
|
website:
|
||||||
title: "Kyle Belanger"
|
title: "Kyle Belanger"
|
||||||
|
|
|
||||||
|
|
@ -71,9 +71,9 @@ ul.task-list li input[type="checkbox"] {
|
||||||
}
|
}
|
||||||
|
|
||||||
const options = {
|
const options = {
|
||||||
valueNames: ['listing-date','listing-title','listing-author','listing-image','listing-description','listing-categories',{ data: ['index'] },{ data: ['categories'] },{ data: ['listing-date-sort'] },{ data: ['listing-file-modified-sort'] }],
|
valueNames: ['listing-date','listing-title','listing-author','listing-subtitle','listing-image','listing-description','listing-categories',{ data: ['index'] },{ data: ['categories'] },{ data: ['listing-date-sort'] },{ data: ['listing-file-modified-sort'] }],
|
||||||
|
|
||||||
searchColumns: ["listing-date","listing-title","listing-author","listing-image","listing-description","listing-categories"],
|
searchColumns: ["listing-date","listing-title","listing-author","listing-subtitle","listing-image","listing-description","listing-categories"],
|
||||||
};
|
};
|
||||||
|
|
||||||
window['quarto-listings'] = window['quarto-listings'] || {};
|
window['quarto-listings'] = window['quarto-listings'] || {};
|
||||||
|
|
@ -117,6 +117,10 @@ ul.task-list li input[type="checkbox"] {
|
||||||
<li class="nav-item">
|
<li class="nav-item">
|
||||||
<a class="nav-link active" href="./blog.html" rel="" target="" aria-current="page">
|
<a class="nav-link active" href="./blog.html" rel="" target="" aria-current="page">
|
||||||
<span class="menu-text">Posts</span></a>
|
<span class="menu-text">Posts</span></a>
|
||||||
|
</li>
|
||||||
|
<li class="nav-item">
|
||||||
|
<a class="nav-link" href="./kyle_resume.pdf" rel="" target="">
|
||||||
|
<span class="menu-text">Resume</span></a>
|
||||||
</li>
|
</li>
|
||||||
<li class="nav-item compact">
|
<li class="nav-item compact">
|
||||||
<a class="nav-link" href="https://github.com/mmmmtoasty19" rel="" target=""><i class="bi bi-github" role="img">
|
<a class="nav-link" href="https://github.com/mmmmtoasty19" rel="" target=""><i class="bi bi-github" role="img">
|
||||||
|
|
@ -152,7 +156,7 @@ ul.task-list li input[type="checkbox"] {
|
||||||
<!-- margin-sidebar -->
|
<!-- margin-sidebar -->
|
||||||
<div id="quarto-margin-sidebar" class="sidebar margin-sidebar">
|
<div id="quarto-margin-sidebar" class="sidebar margin-sidebar">
|
||||||
|
|
||||||
<h5 class="quarto-listing-category-title">Categories</h5><div class="quarto-listing-category category-default"><div class="category" data-category="">All <span class="quarto-category-count">(2)</span></div><div class="category" data-category="analysis">analysis <span class="quarto-category-count">(1)</span></div><div class="category" data-category="code">code <span class="quarto-category-count">(1)</span></div><div class="category" data-category="news">news <span class="quarto-category-count">(2)</span></div></div></div>
|
<h5 class="quarto-listing-category-title">Categories</h5><div class="quarto-listing-category category-default"><div class="category" data-category="">All <span class="quarto-category-count">(1)</span></div></div></div>
|
||||||
<!-- main -->
|
<!-- main -->
|
||||||
<main class="content quarto-banner-title-block column-page-left" id="quarto-document-content">
|
<main class="content quarto-banner-title-block column-page-left" id="quarto-document-content">
|
||||||
|
|
||||||
|
|
@ -165,78 +169,30 @@ ul.task-list li input[type="checkbox"] {
|
||||||
|
|
||||||
<div class="quarto-listing quarto-listing-container-default" id="listing-listing">
|
<div class="quarto-listing quarto-listing-container-default" id="listing-listing">
|
||||||
<div class="list quarto-listing-default">
|
<div class="list quarto-listing-default">
|
||||||
<div class="quarto-post image-right" data-index="0" data-categories="news,code,analysis" data-listing-date-sort="1696305600000" data-listing-file-modified-sort="1696358387981" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="1">
|
<div class="quarto-post image-right" data-index="0" data-listing-date-sort="1579842000000" data-listing-file-modified-sort="1697052101192" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="2">
|
||||||
<div class="thumbnail">
|
<div class="thumbnail">
|
||||||
<p><a href="./posts/post-with-code/index.html"> <img src="./posts/post-with-code/image.jpg" class="thumbnail-image"> </a></p>
|
<p><a href="./posts/2020-01-04_my-start-to-r/my-start-to-r.html"> <p class="card-img-top"><img src="posts\2020-01-04_my-start-to-r\my-start-to-r_files\figure-html\unnamed-chunk-5-1.png" class="thumbnail-image card-img"/></p> </a></p>
|
||||||
</div>
|
</div>
|
||||||
<div class="body">
|
<div class="body">
|
||||||
<a href="./posts/post-with-code/index.html">
|
<a href="./posts/2020-01-04_my-start-to-r/my-start-to-r.html">
|
||||||
<h3 class="no-anchor listing-title">
|
<h3 class="no-anchor listing-title">
|
||||||
Post With Code
|
My Start to R
|
||||||
</h3>
|
</h3>
|
||||||
<div class="listing-subtitle">
|
<div class="listing-subtitle">
|
||||||
|
<p>A short introduction to my blog, and R journey.</p>
|
||||||
</div>
|
</div>
|
||||||
</a>
|
|
||||||
<div class="listing-categories">
|
|
||||||
<div class="listing-category" onclick="window.quartoListingCategory('news'); return false;">
|
|
||||||
news
|
|
||||||
</div>
|
|
||||||
<div class="listing-category" onclick="window.quartoListingCategory('code'); return false;">
|
|
||||||
code
|
|
||||||
</div>
|
|
||||||
<div class="listing-category" onclick="window.quartoListingCategory('analysis'); return false;">
|
|
||||||
analysis
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<a href="./posts/post-with-code/index.html">
|
|
||||||
<div class="listing-description">
|
<div class="listing-description">
|
||||||
This is a post with executable code.
|
Today starts my attempt at sharing my R journey with the world! I have been learning R off and on now since late 2019, I have begun to take it much more serious as I work…
|
||||||
</div>
|
</div>
|
||||||
</a>
|
</a>
|
||||||
</div>
|
</div>
|
||||||
<div class="metadata">
|
<div class="metadata">
|
||||||
<a href="./posts/post-with-code/index.html">
|
<a href="./posts/2020-01-04_my-start-to-r/my-start-to-r.html">
|
||||||
<div class="listing-date">
|
<div class="listing-date">
|
||||||
Oct 3, 2023
|
Jan 24, 2020
|
||||||
</div>
|
</div>
|
||||||
<div class="listing-author">
|
<div class="listing-author">
|
||||||
Harlow Malloc
|
Kyle Belanger
|
||||||
</div>
|
|
||||||
</a>
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<div class="quarto-post image-right" data-index="1" data-categories="news" data-listing-date-sort="1696046400000" data-listing-file-modified-sort="1696358387971" data-listing-date-modified-sort="NaN" data-listing-reading-time-sort="1">
|
|
||||||
<div class="thumbnail">
|
|
||||||
<p><a href="./posts/welcome/index.html"> <p class="card-img-top"><img src="posts\welcome\thumbnail.jpg" class="thumbnail-image card-img"/></p> </a></p>
|
|
||||||
</div>
|
|
||||||
<div class="body">
|
|
||||||
<a href="./posts/welcome/index.html">
|
|
||||||
<h3 class="no-anchor listing-title">
|
|
||||||
Welcome To My Blog
|
|
||||||
</h3>
|
|
||||||
<div class="listing-subtitle">
|
|
||||||
|
|
||||||
</div>
|
|
||||||
</a>
|
|
||||||
<div class="listing-categories">
|
|
||||||
<div class="listing-category" onclick="window.quartoListingCategory('news'); return false;">
|
|
||||||
news
|
|
||||||
</div>
|
|
||||||
</div>
|
|
||||||
<a href="./posts/welcome/index.html">
|
|
||||||
<div class="listing-description">
|
|
||||||
This is the first post in a Quarto blog. Welcome!
|
|
||||||
</div>
|
|
||||||
</a>
|
|
||||||
</div>
|
|
||||||
<div class="metadata">
|
|
||||||
<a href="./posts/welcome/index.html">
|
|
||||||
<div class="listing-date">
|
|
||||||
Sep 30, 2023
|
|
||||||
</div>
|
|
||||||
<div class="listing-author">
|
|
||||||
Tristan O’Malley
|
|
||||||
</div>
|
</div>
|
||||||
</a>
|
</a>
|
||||||
</div>
|
</div>
|
||||||
|
|
|
||||||
|
|
@ -2,8 +2,7 @@
|
||||||
{
|
{
|
||||||
"listing": "/blog.html",
|
"listing": "/blog.html",
|
||||||
"items": [
|
"items": [
|
||||||
"/posts/post-with-code/index.html",
|
"/posts/2020-01-04_my-start-to-r/my-start-to-r.html"
|
||||||
"/posts/welcome/index.html"
|
|
||||||
]
|
]
|
||||||
}
|
}
|
||||||
]
|
]
|
||||||
504
_site/posts/2020-01-04_my-start-to-r/my-start-to-r.html
Normal file
504
_site/posts/2020-01-04_my-start-to-r/my-start-to-r.html
Normal file
|
|
@ -0,0 +1,504 @@
|
||||||
|
<!DOCTYPE html>
|
||||||
|
<html xmlns="http://www.w3.org/1999/xhtml" lang="en" xml:lang="en"><head>
|
||||||
|
|
||||||
|
<meta charset="utf-8">
|
||||||
|
<meta name="generator" content="quarto-1.3.450">
|
||||||
|
|
||||||
|
<meta name="viewport" content="width=device-width, initial-scale=1.0, user-scalable=yes">
|
||||||
|
|
||||||
|
<meta name="author" content="Kyle Belanger">
|
||||||
|
<meta name="dcterms.date" content="2020-01-24">
|
||||||
|
|
||||||
|
<title>Kyle Belanger - My Start to R</title>
|
||||||
|
<style>
|
||||||
|
code{white-space: pre-wrap;}
|
||||||
|
span.smallcaps{font-variant: small-caps;}
|
||||||
|
div.columns{display: flex; gap: min(4vw, 1.5em);}
|
||||||
|
div.column{flex: auto; overflow-x: auto;}
|
||||||
|
div.hanging-indent{margin-left: 1.5em; text-indent: -1.5em;}
|
||||||
|
ul.task-list{list-style: none;}
|
||||||
|
ul.task-list li input[type="checkbox"] {
|
||||||
|
width: 0.8em;
|
||||||
|
margin: 0 0.8em 0.2em -1em; /* quarto-specific, see https://github.com/quarto-dev/quarto-cli/issues/4556 */
|
||||||
|
vertical-align: middle;
|
||||||
|
}
|
||||||
|
/* CSS for syntax highlighting */
|
||||||
|
pre > code.sourceCode { white-space: pre; position: relative; }
|
||||||
|
pre > code.sourceCode > span { display: inline-block; line-height: 1.25; }
|
||||||
|
pre > code.sourceCode > span:empty { height: 1.2em; }
|
||||||
|
.sourceCode { overflow: visible; }
|
||||||
|
code.sourceCode > span { color: inherit; text-decoration: inherit; }
|
||||||
|
div.sourceCode { margin: 1em 0; }
|
||||||
|
pre.sourceCode { margin: 0; }
|
||||||
|
@media screen {
|
||||||
|
div.sourceCode { overflow: auto; }
|
||||||
|
}
|
||||||
|
@media print {
|
||||||
|
pre > code.sourceCode { white-space: pre-wrap; }
|
||||||
|
pre > code.sourceCode > span { text-indent: -5em; padding-left: 5em; }
|
||||||
|
}
|
||||||
|
pre.numberSource code
|
||||||
|
{ counter-reset: source-line 0; }
|
||||||
|
pre.numberSource code > span
|
||||||
|
{ position: relative; left: -4em; counter-increment: source-line; }
|
||||||
|
pre.numberSource code > span > a:first-child::before
|
||||||
|
{ content: counter(source-line);
|
||||||
|
position: relative; left: -1em; text-align: right; vertical-align: baseline;
|
||||||
|
border: none; display: inline-block;
|
||||||
|
-webkit-touch-callout: none; -webkit-user-select: none;
|
||||||
|
-khtml-user-select: none; -moz-user-select: none;
|
||||||
|
-ms-user-select: none; user-select: none;
|
||||||
|
padding: 0 4px; width: 4em;
|
||||||
|
}
|
||||||
|
pre.numberSource { margin-left: 3em; padding-left: 4px; }
|
||||||
|
div.sourceCode
|
||||||
|
{ }
|
||||||
|
@media screen {
|
||||||
|
pre > code.sourceCode > span > a:first-child::before { text-decoration: underline; }
|
||||||
|
}
|
||||||
|
</style>
|
||||||
|
|
||||||
|
|
||||||
|
<script src="../../site_libs/quarto-nav/quarto-nav.js"></script>
|
||||||
|
<script src="../../site_libs/quarto-nav/headroom.min.js"></script>
|
||||||
|
<script src="../../site_libs/clipboard/clipboard.min.js"></script>
|
||||||
|
<script src="../../site_libs/quarto-search/autocomplete.umd.js"></script>
|
||||||
|
<script src="../../site_libs/quarto-search/fuse.min.js"></script>
|
||||||
|
<script src="../../site_libs/quarto-search/quarto-search.js"></script>
|
||||||
|
<meta name="quarto:offset" content="../../">
|
||||||
|
<script src="../../site_libs/quarto-html/quarto.js"></script>
|
||||||
|
<script src="../../site_libs/quarto-html/popper.min.js"></script>
|
||||||
|
<script src="../../site_libs/quarto-html/tippy.umd.min.js"></script>
|
||||||
|
<script src="../../site_libs/quarto-html/anchor.min.js"></script>
|
||||||
|
<link href="../../site_libs/quarto-html/tippy.css" rel="stylesheet">
|
||||||
|
<link href="../../site_libs/quarto-html/quarto-syntax-highlighting.css" rel="stylesheet" id="quarto-text-highlighting-styles">
|
||||||
|
<script src="../../site_libs/bootstrap/bootstrap.min.js"></script>
|
||||||
|
<link href="../../site_libs/bootstrap/bootstrap-icons.css" rel="stylesheet">
|
||||||
|
<link href="../../site_libs/bootstrap/bootstrap.min.css" rel="stylesheet" id="quarto-bootstrap" data-mode="light">
|
||||||
|
<script id="quarto-search-options" type="application/json">{
|
||||||
|
"location": "navbar",
|
||||||
|
"copy-button": false,
|
||||||
|
"collapse-after": 3,
|
||||||
|
"panel-placement": "end",
|
||||||
|
"type": "overlay",
|
||||||
|
"limit": 20,
|
||||||
|
"language": {
|
||||||
|
"search-no-results-text": "No results",
|
||||||
|
"search-matching-documents-text": "matching documents",
|
||||||
|
"search-copy-link-title": "Copy link to search",
|
||||||
|
"search-hide-matches-text": "Hide additional matches",
|
||||||
|
"search-more-match-text": "more match in this document",
|
||||||
|
"search-more-matches-text": "more matches in this document",
|
||||||
|
"search-clear-button-title": "Clear",
|
||||||
|
"search-detached-cancel-button-title": "Cancel",
|
||||||
|
"search-submit-button-title": "Submit",
|
||||||
|
"search-label": "Search"
|
||||||
|
}
|
||||||
|
}</script>
|
||||||
|
|
||||||
|
|
||||||
|
<link rel="stylesheet" href="../../styles.css">
|
||||||
|
</head>
|
||||||
|
|
||||||
|
<body class="floating nav-fixed">
|
||||||
|
|
||||||
|
<div id="quarto-search-results"></div>
|
||||||
|
<header id="quarto-header" class="headroom fixed-top">
|
||||||
|
<nav class="navbar navbar-expand-lg navbar-dark ">
|
||||||
|
<div class="navbar-container container-fluid">
|
||||||
|
<div class="navbar-brand-container">
|
||||||
|
<a class="navbar-brand" href="../../index.html">
|
||||||
|
<span class="navbar-title">Kyle Belanger</span>
|
||||||
|
</a>
|
||||||
|
</div>
|
||||||
|
<div id="quarto-search" class="" title="Search"></div>
|
||||||
|
<button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarCollapse" aria-controls="navbarCollapse" aria-expanded="false" aria-label="Toggle navigation" onclick="if (window.quartoToggleHeadroom) { window.quartoToggleHeadroom(); }">
|
||||||
|
<span class="navbar-toggler-icon"></span>
|
||||||
|
</button>
|
||||||
|
<div class="collapse navbar-collapse" id="navbarCollapse">
|
||||||
|
<ul class="navbar-nav navbar-nav-scroll ms-auto">
|
||||||
|
<li class="nav-item">
|
||||||
|
<a class="nav-link" href="../../blog.html" rel="" target="">
|
||||||
|
<span class="menu-text">Posts</span></a>
|
||||||
|
</li>
|
||||||
|
<li class="nav-item">
|
||||||
|
<a class="nav-link" href="../../kyle_resume.pdf" rel="" target="">
|
||||||
|
<span class="menu-text">Resume</span></a>
|
||||||
|
</li>
|
||||||
|
<li class="nav-item compact">
|
||||||
|
<a class="nav-link" href="https://github.com/mmmmtoasty19" rel="" target=""><i class="bi bi-github" role="img">
|
||||||
|
</i>
|
||||||
|
<span class="menu-text"></span></a>
|
||||||
|
</li>
|
||||||
|
</ul>
|
||||||
|
<div class="quarto-navbar-tools">
|
||||||
|
</div>
|
||||||
|
</div> <!-- /navcollapse -->
|
||||||
|
</div> <!-- /container-fluid -->
|
||||||
|
</nav>
|
||||||
|
</header>
|
||||||
|
<!-- content -->
|
||||||
|
<header id="title-block-header" class="quarto-title-block default toc-left page-columns page-full">
|
||||||
|
<div class="quarto-title-banner page-columns page-full">
|
||||||
|
<div class="quarto-title column-body">
|
||||||
|
<h1 class="title">My Start to R</h1>
|
||||||
|
<p class="subtitle lead"></p><p>A short introduction to my blog, and R journey.</p><p></p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
<div class="quarto-title-meta">
|
||||||
|
|
||||||
|
<div>
|
||||||
|
<div class="quarto-title-meta-heading">Author</div>
|
||||||
|
<div class="quarto-title-meta-contents">
|
||||||
|
<p><a href="https://kyleb.rbind.io/">Kyle Belanger</a> </p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
<div>
|
||||||
|
<div class="quarto-title-meta-heading">Published</div>
|
||||||
|
<div class="quarto-title-meta-contents">
|
||||||
|
<p class="date">January 24, 2020</p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</header><div id="quarto-content" class="quarto-container page-columns page-rows-contents page-layout-article page-navbar">
|
||||||
|
<!-- sidebar -->
|
||||||
|
<nav id="quarto-sidebar" class="sidebar collapse collapse-horizontal sidebar-navigation floating overflow-auto">
|
||||||
|
<nav id="TOC" role="doc-toc" class="toc-active">
|
||||||
|
<h2 id="toc-title">Table of contents</h2>
|
||||||
|
|
||||||
|
<ul>
|
||||||
|
<li><a href="#load-libraries" id="toc-load-libraries" class="nav-link active" data-scroll-target="#load-libraries">Load Libraries</a></li>
|
||||||
|
<li><a href="#import-data" id="toc-import-data" class="nav-link" data-scroll-target="#import-data">Import Data</a></li>
|
||||||
|
<li><a href="#clean-data-names" id="toc-clean-data-names" class="nav-link" data-scroll-target="#clean-data-names">Clean Data Names</a></li>
|
||||||
|
<li><a href="#convert-data-to-long-form" id="toc-convert-data-to-long-form" class="nav-link" data-scroll-target="#convert-data-to-long-form">Convert Data to ‘Long Form’</a></li>
|
||||||
|
<li><a href="#graph-5.1" id="toc-graph-5.1" class="nav-link" data-scroll-target="#graph-5.1">Graph 5.1</a></li>
|
||||||
|
</ul>
|
||||||
|
</nav>
|
||||||
|
</nav>
|
||||||
|
<div id="quarto-sidebar-glass" data-bs-toggle="collapse" data-bs-target="#quarto-sidebar,#quarto-sidebar-glass"></div>
|
||||||
|
<!-- margin-sidebar -->
|
||||||
|
<div id="quarto-margin-sidebar" class="sidebar margin-sidebar">
|
||||||
|
</div>
|
||||||
|
<!-- main -->
|
||||||
|
<main class="content quarto-banner-title-block" id="quarto-document-content">
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
<p>Today starts my attempt at sharing my R journey with the world! I have been learning R off and on now since late 2019, I have begun to take it much more serious as I work through my Data Analytics class at UCF. My love for all things numbers and graphs has really blossomed, and I am choosing to share that love with anyone who cares to read. I will not claim to be the best at R, or any programming for that matter, but these are my attempts. Each post in this serious will be replicated a graph created in Tableau from the book Tableau for Healthcare. Todays graph is a simple horizontal bar chart, in transferring to both a new blog site and computer I have unfortunately lost the original bar graph, but trust me the one I created looks just like it.</p>
|
||||||
|
<section id="load-libraries" class="level1">
|
||||||
|
<h1>Load Libraries</h1>
|
||||||
|
<div class="cell">
|
||||||
|
<div class="sourceCode cell-code" id="cb1"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(tidyr)</span>
|
||||||
|
<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(magrittr)</span>
|
||||||
|
<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(ggplot2)</span>
|
||||||
|
<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(stringr)</span>
|
||||||
|
<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a><span class="fu">library</span>(dplyr)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
|
||||||
|
</div>
|
||||||
|
</section>
|
||||||
|
<section id="import-data" class="level1">
|
||||||
|
<h1>Import Data</h1>
|
||||||
|
<div class="cell">
|
||||||
|
<div class="sourceCode cell-code" id="cb2"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a>ds <span class="ot"><-</span> readxl<span class="sc">::</span><span class="fu">read_excel</span>(</span>
|
||||||
|
<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a> <span class="at">path =</span> <span class="st">"Tableau 10 Training Practice Data.xlsx"</span> </span>
|
||||||
|
<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a> ,<span class="at">sheet =</span> <span class="st">"02 - Patient Falls-Single Hosp"</span></span>
|
||||||
|
<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a> )</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
|
||||||
|
</div>
|
||||||
|
</section>
|
||||||
|
<section id="clean-data-names" class="level1">
|
||||||
|
<h1>Clean Data Names</h1>
|
||||||
|
<div class="cell">
|
||||||
|
<div class="sourceCode cell-code" id="cb3"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb3-1"><a href="#cb3-1" aria-hidden="true" tabindex="-1"></a><span class="co">#should make reusable forumla at later time</span></span>
|
||||||
|
<span id="cb3-2"><a href="#cb3-2" aria-hidden="true" tabindex="-1"></a><span class="fu">names</span>(ds) <span class="ot"><-</span> <span class="fu">tolower</span>(<span class="fu">names</span>(ds))</span>
|
||||||
|
<span id="cb3-3"><a href="#cb3-3" aria-hidden="true" tabindex="-1"></a><span class="fu">names</span>(ds) <span class="ot"><-</span> <span class="fu">str_replace_all</span>(<span class="fu">names</span>(ds),<span class="st">" "</span>, <span class="st">"_"</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
|
||||||
|
</div>
|
||||||
|
</section>
|
||||||
|
<section id="convert-data-to-long-form" class="level1">
|
||||||
|
<h1>Convert Data to ‘Long Form’</h1>
|
||||||
|
<div class="cell">
|
||||||
|
<div class="sourceCode cell-code" id="cb4"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb4-1"><a href="#cb4-1" aria-hidden="true" tabindex="-1"></a>ds1 <span class="ot"><-</span> ds <span class="sc">%>%</span> </span>
|
||||||
|
<span id="cb4-2"><a href="#cb4-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">gather</span>(<span class="st">"patient_falls_no_injury_rate"</span> , <span class="st">"patient_falls_with_injury_rate"</span></span>
|
||||||
|
<span id="cb4-3"><a href="#cb4-3" aria-hidden="true" tabindex="-1"></a> ,<span class="at">key =</span> <span class="st">"injury"</span> </span>
|
||||||
|
<span id="cb4-4"><a href="#cb4-4" aria-hidden="true" tabindex="-1"></a> ,<span class="at">value =</span> <span class="st">"rate"</span> ) <span class="sc">%>%</span> </span>
|
||||||
|
<span id="cb4-5"><a href="#cb4-5" aria-hidden="true" tabindex="-1"></a> <span class="fu">mutate</span>(<span class="at">injury =</span> (injury <span class="sc">==</span> <span class="st">"patient_falls_with_injury_rate"</span>))</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
|
||||||
|
</div>
|
||||||
|
</section>
|
||||||
|
<section id="graph-5.1" class="level1">
|
||||||
|
<h1>Graph 5.1</h1>
|
||||||
|
<div class="cell">
|
||||||
|
<div class="sourceCode cell-code" id="cb5"><pre class="sourceCode r code-with-copy"><code class="sourceCode r"><span id="cb5-1"><a href="#cb5-1" aria-hidden="true" tabindex="-1"></a>b1 <span class="ot"><-</span> ds <span class="sc">%>%</span> </span>
|
||||||
|
<span id="cb5-2"><a href="#cb5-2" aria-hidden="true" tabindex="-1"></a> <span class="fu">ggplot</span>(<span class="at">mapping =</span> <span class="fu">aes</span>(<span class="at">x =</span> <span class="fu">reorder</span>(type_of_care,total_patient_falls_rate ) , <span class="at">y =</span> total_patient_falls_rate)) <span class="sc">+</span></span>
|
||||||
|
<span id="cb5-3"><a href="#cb5-3" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_col</span>(<span class="at">fill =</span> <span class="st">"#2b83ba"</span>) <span class="sc">+</span> </span>
|
||||||
|
<span id="cb5-4"><a href="#cb5-4" aria-hidden="true" tabindex="-1"></a> <span class="fu">coord_flip</span>() <span class="sc">+</span></span>
|
||||||
|
<span id="cb5-5"><a href="#cb5-5" aria-hidden="true" tabindex="-1"></a> <span class="fu">scale_y_continuous</span>(<span class="at">breaks =</span> <span class="cn">NULL</span>) <span class="sc">+</span></span>
|
||||||
|
<span id="cb5-6"><a href="#cb5-6" aria-hidden="true" tabindex="-1"></a> <span class="fu">theme</span>(<span class="at">axis.ticks =</span> <span class="fu">element_blank</span>()) <span class="sc">+</span></span>
|
||||||
|
<span id="cb5-7"><a href="#cb5-7" aria-hidden="true" tabindex="-1"></a> <span class="fu">labs</span>(<span class="at">title =</span> <span class="st">"Rate of Patient Falls (per 1,000 Pateint Days)</span><span class="sc">\n</span><span class="st">by Type of Care for FY2017"</span></span>
|
||||||
|
<span id="cb5-8"><a href="#cb5-8" aria-hidden="true" tabindex="-1"></a> ,<span class="at">x =</span> <span class="cn">NULL</span></span>
|
||||||
|
<span id="cb5-9"><a href="#cb5-9" aria-hidden="true" tabindex="-1"></a> ,<span class="at">y =</span> <span class="cn">NULL</span></span>
|
||||||
|
<span id="cb5-10"><a href="#cb5-10" aria-hidden="true" tabindex="-1"></a> ) <span class="sc">+</span></span>
|
||||||
|
<span id="cb5-11"><a href="#cb5-11" aria-hidden="true" tabindex="-1"></a> <span class="fu">theme_classic</span>() <span class="sc">+</span></span>
|
||||||
|
<span id="cb5-12"><a href="#cb5-12" aria-hidden="true" tabindex="-1"></a> <span class="fu">geom_text</span>(<span class="fu">aes</span>(<span class="at">label =</span> <span class="fu">format</span>(total_patient_falls_rate, <span class="at">digits =</span> <span class="dv">2</span>)), <span class="at">nudge_y =</span> <span class="sc">-</span>.<span class="dv">25</span>, <span class="at">color =</span> <span class="st">"white"</span>)</span>
|
||||||
|
<span id="cb5-13"><a href="#cb5-13" aria-hidden="true" tabindex="-1"></a> </span>
|
||||||
|
<span id="cb5-14"><a href="#cb5-14" aria-hidden="true" tabindex="-1"></a>b1</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
|
||||||
|
<div class="cell-output-display">
|
||||||
|
<p><img src="my-start-to-r_files/figure-html/unnamed-chunk-5-1.png" class="img-fluid" width="672"></p>
|
||||||
|
</div>
|
||||||
|
</div>
|
||||||
|
|
||||||
|
|
||||||
|
</section>
|
||||||
|
|
||||||
|
<div id="quarto-appendix" class="default"><section class="quarto-appendix-contents"><h2 class="anchored quarto-appendix-heading">Citation</h2><div><div class="quarto-appendix-secondary-label">BibTeX citation:</div><pre class="sourceCode code-with-copy quarto-appendix-bibtex"><code class="sourceCode bibtex">@online{belanger2020,
|
||||||
|
author = {Belanger, Kyle},
|
||||||
|
title = {My {Start} to {R}},
|
||||||
|
date = {2020-01-24},
|
||||||
|
langid = {en}
|
||||||
|
}
|
||||||
|
</code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre><div class="quarto-appendix-secondary-label">For attribution, please cite this work as:</div><div id="ref-belanger2020" class="csl-entry quarto-appendix-citeas" role="listitem">
|
||||||
|
Belanger, Kyle. 2020. <span>“My Start to R.”</span> January 24, 2020.
|
||||||
|
</div></div></section></div></main> <!-- /main -->
|
||||||
|
<script id="quarto-html-after-body" type="application/javascript">
|
||||||
|
window.document.addEventListener("DOMContentLoaded", function (event) {
|
||||||
|
const toggleBodyColorMode = (bsSheetEl) => {
|
||||||
|
const mode = bsSheetEl.getAttribute("data-mode");
|
||||||
|
const bodyEl = window.document.querySelector("body");
|
||||||
|
if (mode === "dark") {
|
||||||
|
bodyEl.classList.add("quarto-dark");
|
||||||
|
bodyEl.classList.remove("quarto-light");
|
||||||
|
} else {
|
||||||
|
bodyEl.classList.add("quarto-light");
|
||||||
|
bodyEl.classList.remove("quarto-dark");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
const toggleBodyColorPrimary = () => {
|
||||||
|
const bsSheetEl = window.document.querySelector("link#quarto-bootstrap");
|
||||||
|
if (bsSheetEl) {
|
||||||
|
toggleBodyColorMode(bsSheetEl);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
toggleBodyColorPrimary();
|
||||||
|
const icon = "";
|
||||||
|
const anchorJS = new window.AnchorJS();
|
||||||
|
anchorJS.options = {
|
||||||
|
placement: 'right',
|
||||||
|
icon: icon
|
||||||
|
};
|
||||||
|
anchorJS.add('.anchored');
|
||||||
|
const isCodeAnnotation = (el) => {
|
||||||
|
for (const clz of el.classList) {
|
||||||
|
if (clz.startsWith('code-annotation-')) {
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
const clipboard = new window.ClipboardJS('.code-copy-button', {
|
||||||
|
text: function(trigger) {
|
||||||
|
const codeEl = trigger.previousElementSibling.cloneNode(true);
|
||||||
|
for (const childEl of codeEl.children) {
|
||||||
|
if (isCodeAnnotation(childEl)) {
|
||||||
|
childEl.remove();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return codeEl.innerText;
|
||||||
|
}
|
||||||
|
});
|
||||||
|
clipboard.on('success', function(e) {
|
||||||
|
// button target
|
||||||
|
const button = e.trigger;
|
||||||
|
// don't keep focus
|
||||||
|
button.blur();
|
||||||
|
// flash "checked"
|
||||||
|
button.classList.add('code-copy-button-checked');
|
||||||
|
var currentTitle = button.getAttribute("title");
|
||||||
|
button.setAttribute("title", "Copied!");
|
||||||
|
let tooltip;
|
||||||
|
if (window.bootstrap) {
|
||||||
|
button.setAttribute("data-bs-toggle", "tooltip");
|
||||||
|
button.setAttribute("data-bs-placement", "left");
|
||||||
|
button.setAttribute("data-bs-title", "Copied!");
|
||||||
|
tooltip = new bootstrap.Tooltip(button,
|
||||||
|
{ trigger: "manual",
|
||||||
|
customClass: "code-copy-button-tooltip",
|
||||||
|
offset: [0, -8]});
|
||||||
|
tooltip.show();
|
||||||
|
}
|
||||||
|
setTimeout(function() {
|
||||||
|
if (tooltip) {
|
||||||
|
tooltip.hide();
|
||||||
|
button.removeAttribute("data-bs-title");
|
||||||
|
button.removeAttribute("data-bs-toggle");
|
||||||
|
button.removeAttribute("data-bs-placement");
|
||||||
|
}
|
||||||
|
button.setAttribute("title", currentTitle);
|
||||||
|
button.classList.remove('code-copy-button-checked');
|
||||||
|
}, 1000);
|
||||||
|
// clear code selection
|
||||||
|
e.clearSelection();
|
||||||
|
});
|
||||||
|
function tippyHover(el, contentFn) {
|
||||||
|
const config = {
|
||||||
|
allowHTML: true,
|
||||||
|
content: contentFn,
|
||||||
|
maxWidth: 500,
|
||||||
|
delay: 100,
|
||||||
|
arrow: false,
|
||||||
|
appendTo: function(el) {
|
||||||
|
return el.parentElement;
|
||||||
|
},
|
||||||
|
interactive: true,
|
||||||
|
interactiveBorder: 10,
|
||||||
|
theme: 'quarto',
|
||||||
|
placement: 'bottom-start'
|
||||||
|
};
|
||||||
|
window.tippy(el, config);
|
||||||
|
}
|
||||||
|
const noterefs = window.document.querySelectorAll('a[role="doc-noteref"]');
|
||||||
|
for (var i=0; i<noterefs.length; i++) {
|
||||||
|
const ref = noterefs[i];
|
||||||
|
tippyHover(ref, function() {
|
||||||
|
// use id or data attribute instead here
|
||||||
|
let href = ref.getAttribute('data-footnote-href') || ref.getAttribute('href');
|
||||||
|
try { href = new URL(href).hash; } catch {}
|
||||||
|
const id = href.replace(/^#\/?/, "");
|
||||||
|
const note = window.document.getElementById(id);
|
||||||
|
return note.innerHTML;
|
||||||
|
});
|
||||||
|
}
|
||||||
|
let selectedAnnoteEl;
|
||||||
|
const selectorForAnnotation = ( cell, annotation) => {
|
||||||
|
let cellAttr = 'data-code-cell="' + cell + '"';
|
||||||
|
let lineAttr = 'data-code-annotation="' + annotation + '"';
|
||||||
|
const selector = 'span[' + cellAttr + '][' + lineAttr + ']';
|
||||||
|
return selector;
|
||||||
|
}
|
||||||
|
const selectCodeLines = (annoteEl) => {
|
||||||
|
const doc = window.document;
|
||||||
|
const targetCell = annoteEl.getAttribute("data-target-cell");
|
||||||
|
const targetAnnotation = annoteEl.getAttribute("data-target-annotation");
|
||||||
|
const annoteSpan = window.document.querySelector(selectorForAnnotation(targetCell, targetAnnotation));
|
||||||
|
const lines = annoteSpan.getAttribute("data-code-lines").split(",");
|
||||||
|
const lineIds = lines.map((line) => {
|
||||||
|
return targetCell + "-" + line;
|
||||||
|
})
|
||||||
|
let top = null;
|
||||||
|
let height = null;
|
||||||
|
let parent = null;
|
||||||
|
if (lineIds.length > 0) {
|
||||||
|
//compute the position of the single el (top and bottom and make a div)
|
||||||
|
const el = window.document.getElementById(lineIds[0]);
|
||||||
|
top = el.offsetTop;
|
||||||
|
height = el.offsetHeight;
|
||||||
|
parent = el.parentElement.parentElement;
|
||||||
|
if (lineIds.length > 1) {
|
||||||
|
const lastEl = window.document.getElementById(lineIds[lineIds.length - 1]);
|
||||||
|
const bottom = lastEl.offsetTop + lastEl.offsetHeight;
|
||||||
|
height = bottom - top;
|
||||||
|
}
|
||||||
|
if (top !== null && height !== null && parent !== null) {
|
||||||
|
// cook up a div (if necessary) and position it
|
||||||
|
let div = window.document.getElementById("code-annotation-line-highlight");
|
||||||
|
if (div === null) {
|
||||||
|
div = window.document.createElement("div");
|
||||||
|
div.setAttribute("id", "code-annotation-line-highlight");
|
||||||
|
div.style.position = 'absolute';
|
||||||
|
parent.appendChild(div);
|
||||||
|
}
|
||||||
|
div.style.top = top - 2 + "px";
|
||||||
|
div.style.height = height + 4 + "px";
|
||||||
|
let gutterDiv = window.document.getElementById("code-annotation-line-highlight-gutter");
|
||||||
|
if (gutterDiv === null) {
|
||||||
|
gutterDiv = window.document.createElement("div");
|
||||||
|
gutterDiv.setAttribute("id", "code-annotation-line-highlight-gutter");
|
||||||
|
gutterDiv.style.position = 'absolute';
|
||||||
|
const codeCell = window.document.getElementById(targetCell);
|
||||||
|
const gutter = codeCell.querySelector('.code-annotation-gutter');
|
||||||
|
gutter.appendChild(gutterDiv);
|
||||||
|
}
|
||||||
|
gutterDiv.style.top = top - 2 + "px";
|
||||||
|
gutterDiv.style.height = height + 4 + "px";
|
||||||
|
}
|
||||||
|
selectedAnnoteEl = annoteEl;
|
||||||
|
}
|
||||||
|
};
|
||||||
|
const unselectCodeLines = () => {
|
||||||
|
const elementsIds = ["code-annotation-line-highlight", "code-annotation-line-highlight-gutter"];
|
||||||
|
elementsIds.forEach((elId) => {
|
||||||
|
const div = window.document.getElementById(elId);
|
||||||
|
if (div) {
|
||||||
|
div.remove();
|
||||||
|
}
|
||||||
|
});
|
||||||
|
selectedAnnoteEl = undefined;
|
||||||
|
};
|
||||||
|
// Attach click handler to the DT
|
||||||
|
const annoteDls = window.document.querySelectorAll('dt[data-target-cell]');
|
||||||
|
for (const annoteDlNode of annoteDls) {
|
||||||
|
annoteDlNode.addEventListener('click', (event) => {
|
||||||
|
const clickedEl = event.target;
|
||||||
|
if (clickedEl !== selectedAnnoteEl) {
|
||||||
|
unselectCodeLines();
|
||||||
|
const activeEl = window.document.querySelector('dt[data-target-cell].code-annotation-active');
|
||||||
|
if (activeEl) {
|
||||||
|
activeEl.classList.remove('code-annotation-active');
|
||||||
|
}
|
||||||
|
selectCodeLines(clickedEl);
|
||||||
|
clickedEl.classList.add('code-annotation-active');
|
||||||
|
} else {
|
||||||
|
// Unselect the line
|
||||||
|
unselectCodeLines();
|
||||||
|
clickedEl.classList.remove('code-annotation-active');
|
||||||
|
}
|
||||||
|
});
|
||||||
|
}
|
||||||
|
const findCites = (el) => {
|
||||||
|
const parentEl = el.parentElement;
|
||||||
|
if (parentEl) {
|
||||||
|
const cites = parentEl.dataset.cites;
|
||||||
|
if (cites) {
|
||||||
|
return {
|
||||||
|
el,
|
||||||
|
cites: cites.split(' ')
|
||||||
|
};
|
||||||
|
} else {
|
||||||
|
return findCites(el.parentElement)
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
return undefined;
|
||||||
|
}
|
||||||
|
};
|
||||||
|
var bibliorefs = window.document.querySelectorAll('a[role="doc-biblioref"]');
|
||||||
|
for (var i=0; i<bibliorefs.length; i++) {
|
||||||
|
const ref = bibliorefs[i];
|
||||||
|
const citeInfo = findCites(ref);
|
||||||
|
if (citeInfo) {
|
||||||
|
tippyHover(citeInfo.el, function() {
|
||||||
|
var popup = window.document.createElement('div');
|
||||||
|
citeInfo.cites.forEach(function(cite) {
|
||||||
|
var citeDiv = window.document.createElement('div');
|
||||||
|
citeDiv.classList.add('hanging-indent');
|
||||||
|
citeDiv.classList.add('csl-entry');
|
||||||
|
var biblioDiv = window.document.getElementById('ref-' + cite);
|
||||||
|
if (biblioDiv) {
|
||||||
|
citeDiv.innerHTML = biblioDiv.innerHTML;
|
||||||
|
}
|
||||||
|
popup.appendChild(citeDiv);
|
||||||
|
});
|
||||||
|
return popup.innerHTML;
|
||||||
|
});
|
||||||
|
}
|
||||||
|
}
|
||||||
|
});
|
||||||
|
</script>
|
||||||
|
</div> <!-- /content -->
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
</body></html>
|
||||||
Binary file not shown.
|
After Width: | Height: | Size: 19 KiB |
|
|
@ -39,7 +39,7 @@
|
||||||
"href": "blog.html",
|
"href": "blog.html",
|
||||||
"title": "Posts",
|
"title": "Posts",
|
||||||
"section": "",
|
"section": "",
|
||||||
"text": "Post With Code\n\n\n\n\n\n\n\nnews\n\n\ncode\n\n\nanalysis\n\n\n\n\n\n\n\n\n\n\n\nOct 3, 2023\n\n\nHarlow Malloc\n\n\n\n\n\n\n \n\n\n\n\nWelcome To My Blog\n\n\n\n\n\n\n\nnews\n\n\n\n\n\n\n\n\n\n\n\nSep 30, 2023\n\n\nTristan O’Malley\n\n\n\n\n\n\nNo matching items"
|
"text": "My Start to R\n\n\nA short introduction to my blog, and R journey.\n\n\n\n\n\n\n\n\n\nJan 24, 2020\n\n\nKyle Belanger\n\n\n\n\n\n\nNo matching items"
|
||||||
},
|
},
|
||||||
{
|
{
|
||||||
"objectID": "posts/post-with-code/index.html",
|
"objectID": "posts/post-with-code/index.html",
|
||||||
|
|
@ -47,5 +47,12 @@
|
||||||
"title": "Post With Code",
|
"title": "Post With Code",
|
||||||
"section": "",
|
"section": "",
|
||||||
"text": "This is a post with executable code."
|
"text": "This is a post with executable code."
|
||||||
|
},
|
||||||
|
{
|
||||||
|
"objectID": "posts/2020-01-04_my-start-to-r/my-start-to-r.html",
|
||||||
|
"href": "posts/2020-01-04_my-start-to-r/my-start-to-r.html",
|
||||||
|
"title": "My Start to R",
|
||||||
|
"section": "",
|
||||||
|
"text": "Today starts my attempt at sharing my R journey with the world! I have been learning R off and on now since late 2019, I have begun to take it much more serious as I work through my Data Analytics class at UCF. My love for all things numbers and graphs has really blossomed, and I am choosing to share that love with anyone who cares to read. I will not claim to be the best at R, or any programming for that matter, but these are my attempts. Each post in this serious will be replicated a graph created in Tableau from the book Tableau for Healthcare. Todays graph is a simple horizontal bar chart, in transferring to both a new blog site and computer I have unfortunately lost the original bar graph, but trust me the one I created looks just like it.\n\nLoad Libraries\n\nlibrary(tidyr)\nlibrary(magrittr)\nlibrary(ggplot2)\nlibrary(stringr)\nlibrary(dplyr)\n\n\n\nImport Data\n\nds <- readxl::read_excel(\n path = \"Tableau 10 Training Practice Data.xlsx\" \n ,sheet = \"02 - Patient Falls-Single Hosp\"\n )\n\n\n\nClean Data Names\n\n#should make reusable forumla at later time\nnames(ds) <- tolower(names(ds))\nnames(ds) <- str_replace_all(names(ds),\" \", \"_\")\n\n\n\nConvert Data to ‘Long Form’\n\nds1 <- ds %>% \n gather(\"patient_falls_no_injury_rate\" , \"patient_falls_with_injury_rate\"\n ,key = \"injury\" \n ,value = \"rate\" ) %>% \n mutate(injury = (injury == \"patient_falls_with_injury_rate\"))\n\n\n\nGraph 5.1\n\nb1 <- ds %>% \n ggplot(mapping = aes(x = reorder(type_of_care,total_patient_falls_rate ) , y = total_patient_falls_rate)) +\n geom_col(fill = \"#2b83ba\") + \n coord_flip() +\n scale_y_continuous(breaks = NULL) +\n theme(axis.ticks = element_blank()) +\n labs(title = \"Rate of Patient Falls (per 1,000 Pateint Days)\\nby Type of Care for FY2017\"\n ,x = NULL\n ,y = NULL\n ) +\n theme_classic() +\n geom_text(aes(label = format(total_patient_falls_rate, digits = 2)), nudge_y = -.25, color = \"white\")\n \nb1\n\n\n\n\n\n\n\n\nCitationBibTeX citation:@online{belanger2020,\n author = {Belanger, Kyle},\n title = {My {Start} to {R}},\n date = {2020-01-24},\n langid = {en}\n}\nFor attribution, please cite this work as:\nBelanger, Kyle. 2020. “My Start to R.” January 24, 2020."
|
||||||
}
|
}
|
||||||
]
|
]
|
||||||
Binary file not shown.
67
posts/2020-01-04_my-start-to-r/my-start-to-r.qmd
Normal file
67
posts/2020-01-04_my-start-to-r/my-start-to-r.qmd
Normal file
|
|
@ -0,0 +1,67 @@
|
||||||
|
---
|
||||||
|
title: "My Start to R"
|
||||||
|
subtitle: |
|
||||||
|
A short introduction to my blog, and R journey.
|
||||||
|
date: 01-24-2020
|
||||||
|
|
||||||
|
---
|
||||||
|
|
||||||
|
Today starts my attempt at sharing my R journey with the world! I have been learning R off and on now since late 2019, I have begun to take it much more serious as I work through my Data Analytics class at UCF. My love for all things numbers and graphs has really blossomed, and I am choosing to share that love with anyone who cares to read. I will not claim to be the best at R, or any programming for that matter, but these are my attempts. Each post in this serious will be replicated a graph created in Tableau from the book Tableau for Healthcare. Todays graph is a simple horizontal bar chart, in transferring to both a new blog site and computer I have unfortunately lost the original bar graph, but trust me the one I created looks just like it.
|
||||||
|
|
||||||
|
# Load Libraries
|
||||||
|
|
||||||
|
```{r}
|
||||||
|
library(tidyr)
|
||||||
|
library(magrittr)
|
||||||
|
library(ggplot2)
|
||||||
|
library(stringr)
|
||||||
|
library(dplyr)
|
||||||
|
```
|
||||||
|
|
||||||
|
# Import Data
|
||||||
|
|
||||||
|
```{r}
|
||||||
|
ds <- readxl::read_excel(
|
||||||
|
path = "Tableau 10 Training Practice Data.xlsx"
|
||||||
|
,sheet = "02 - Patient Falls-Single Hosp"
|
||||||
|
)
|
||||||
|
```
|
||||||
|
|
||||||
|
# Clean Data Names
|
||||||
|
|
||||||
|
```{r}
|
||||||
|
#should make reusable forumla at later time
|
||||||
|
names(ds) <- tolower(names(ds))
|
||||||
|
names(ds) <- str_replace_all(names(ds)," ", "_")
|
||||||
|
|
||||||
|
```
|
||||||
|
|
||||||
|
# Convert Data to 'Long Form'
|
||||||
|
|
||||||
|
```{r}
|
||||||
|
ds1 <- ds %>%
|
||||||
|
gather("patient_falls_no_injury_rate" , "patient_falls_with_injury_rate"
|
||||||
|
,key = "injury"
|
||||||
|
,value = "rate" ) %>%
|
||||||
|
mutate(injury = (injury == "patient_falls_with_injury_rate"))
|
||||||
|
|
||||||
|
```
|
||||||
|
|
||||||
|
# Graph 5.1
|
||||||
|
|
||||||
|
```{r}
|
||||||
|
b1 <- ds %>%
|
||||||
|
ggplot(mapping = aes(x = reorder(type_of_care,total_patient_falls_rate ) , y = total_patient_falls_rate)) +
|
||||||
|
geom_col(fill = "#2b83ba") +
|
||||||
|
coord_flip() +
|
||||||
|
scale_y_continuous(breaks = NULL) +
|
||||||
|
theme(axis.ticks = element_blank()) +
|
||||||
|
labs(title = "Rate of Patient Falls (per 1,000 Pateint Days)\nby Type of Care for FY2017"
|
||||||
|
,x = NULL
|
||||||
|
,y = NULL
|
||||||
|
) +
|
||||||
|
theme_classic() +
|
||||||
|
geom_text(aes(label = format(total_patient_falls_rate, digits = 2)), nudge_y = -.25, color = "white")
|
||||||
|
|
||||||
|
b1
|
||||||
|
```
|
||||||
|
|
@ -2,7 +2,8 @@
|
||||||
|
|
||||||
# freeze computational output
|
# freeze computational output
|
||||||
# (see https://quarto.org/docs/projects/code-execution.html#freeze)
|
# (see https://quarto.org/docs/projects/code-execution.html#freeze)
|
||||||
freeze: true
|
# may need to revist later
|
||||||
|
# freeze: true
|
||||||
|
|
||||||
# Enable banner style title blocks
|
# Enable banner style title blocks
|
||||||
title-block-banner: true
|
title-block-banner: true
|
||||||
|
|
@ -18,3 +19,11 @@ author:
|
||||||
url: https://kyleb.rbind.io/
|
url: https://kyleb.rbind.io/
|
||||||
|
|
||||||
citation: true
|
citation: true
|
||||||
|
|
||||||
|
execute:
|
||||||
|
echo: true
|
||||||
|
message: false
|
||||||
|
warning: false
|
||||||
|
|
||||||
|
# this will enable blog wide code folding which I do not want at this time
|
||||||
|
# code-fold: true
|
||||||
Loading…
Reference in a new issue