スマートデバイス利用傾向から導く、Bellabeatのマーケティング戦略の展望


## はじめに
この記事では、Googleからシナリオとデータセットが提供されています。  
 
提供されたシナリオに基づいて、データセットの分析を行い、その過程と結果を共有します。

データセットの出典元　[Fitness](https://www.kaggle.com/datasets/arashnic/fitbit)

## ダイジェスト
#### シナリオ
私はBellabeatのマーケティングアナリストです。スマートデバイス市場の成長を見据え、チーフクリエイティブオフィサーの指示のもと、特定の製品に焦点を当てています。

消費者がスマートデバイスをどのように活用しているかを分析する任務を担当しています。

#### インサイト

+ 歩数や運動時間が不足している一方で、座っている時間が過剰であり、体重も推奨値よりも重いため、多くの人が運動不足に陥っていると考えます。  
 
+ スマートデバイスは一週間の前半に使われる傾向があり、後半にかけて減少しています。  

+ 座っている時間と消費カロリーには8~17時間までは正の相関にあるが、超過すると負の相関になります。    

+ やや激しい運動を50分以上行うと睡眠時間が短くなる傾向にあります。     


![スクリーンショット 2024-01-23 142004.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/dba27bcf-bd28-583c-0de8-149764b43aa6.png)
![スクリーンショット 2024-02-12 105803.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/6ad33eb2-f4e8-0759-944f-953e70e191c1.png)
![スクリーンショット 2024-01-23 142151.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/1f71ec58-a0c1-4acc-b0ce-092beb1a4481.png)
![スクリーンショット 2024-02-12 113402.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/bbba07b7-afdc-6967-50d9-6396c1003cde.png)



#### 提案

+ ジムとの業務提携・コラボを行い、歩数や運動時間の不足を補う。  

+ 座っている時間が推奨よりも大幅に超過しているため、5時間を超過した段階で通知を発する機能を搭載して、座りすぎを抑制する。  

+ 利用者の年齢データを収集し、それを活用して特定のアクティブ層を中心に広告を展開することで、費用対効果を向上させる。 

+ ユーザーの座っている時間、歩数、活動時間を推奨値と比較して可視化し、自身の行動を理解しやすくするシステムの構築。  
(例)
$$
\frac{900}{600}
$$

# 目次
[1.シナリオ](#1-シナリオ)
[2.問いかけ](#2-問いかけ)
[3.プロセス](#3-プロセス)
[4.分析と共有](#4-分析と共有)
- [4-1. 各項目の平均を求める](#4-1-summary関数を用いて平均の歩数着席時間活動時間睡眠時間カロリーを求めます)
- [4-2. スマートデバイスの使用傾向を探ります。](#4-2-スマートデバイスの使用傾向を探ります)
- [4-3. これらの傾向は、Bellbeatのユーザーにはどう当てはまるでしょうか。](#4-3-これらの傾向はbellbeatのユーザーにはどう当てはまるでしょうか)


[5.まとめ](#5-まとめ)
[6.振り返りと展望](#6-振り返りと展望)



# 1. シナリオ

私は、女性向け女性向けウェルネス製品メーカーである Bellabeat のマーケティングアナリストチームに所属するジュニアデータアナリストです。  

Bellabeat は小さな会社ですが、世界的な スマートデバイス 市場における大きな成長が見込まれています。
Bellabeat のチーフクリエイティブオフィサー Urška Sršenは、 スマートデバイスのフィットネス データを分析することで、会社の新たな成長機会を引き出すことができると考えています。  

私は、Bellabeat のある製品に焦点を当て、スマートデバイスのデータを分析し、消費者がスマートデバイスをどのように活用しているかを分析するよう依頼されています。発見したインサイトは、会社のマーケティング戦略を導くのに役立ちます。そこで、Bellabeat のマーケティング戦略に関するハイレベルな提案とともに、その分析結果を Bellabeat の経営者にプレゼンテーションする必要があります。

## 登場人物と製品    

#### ● 登場人物    

○ Urška Sršen（ウルシュカ・シュルシェン）：Bellabeat の共同設立者兼チーフクリエイティブオフィサー  

○ Sando Mur（サンド・ムール）：数学者であり Bellabeat の共同設立者、Bellabeat 経営陣の主要メンバー  

○ Bellabeat マーケティングアナリティクスチーム: Bellabeat のマーケティング戦略の指針となるデータの収集、分析、レポー
トを担当するデータアナリストのチーム。あなたは半年前にこのチームにジュニア データアナリストとして配属され、Bellabeat
のミッションやビジネス上の目的、そしてその達成のために自分がどう貢献できるか模索中です。    



#### ● 製品とサービス  

○ アプリ: Bellabeat のアプリは活動量や睡眠、ストレス、月経周期、マインドフルネスなど健康に関するデータをユーザーに提
供しています。このデータはユーザーが自分の現在の習慣をよりよく理解し、健康的な決定を下すのに役立ちます。
Bellabeat のアプリは、同社のスマートウェルネス製品のラインアップとつながっています。  

○ Leaf: Bellabeat の定番ウェルネス・トラッカーである Leaf は、ブレスレットやネックレスとして身につけることができます。Leaf
トラッカーは Bellabeat のアプリと連携させることができ、活動量や睡眠、ストレスを記録できます。  

○ Time: クラシックな時計とスマートテクノロジーを組み合わせたウェルネスウォッチで、ユーザーの活動量や睡眠、ストレスを
記録します。この時計も Bellabeat のアプリと連携させることができ、毎日のウェルネスに関するインサイトを提供します。  

○ Spring: スマートテクノロジーを使って毎日の水分摂取量を記録し、一日を通して適切な水分補給ができるウォーターボトルで
す。スプリングボトルも Bellabeat のアプリと連携させることができ、水分補給レベルを追跡します。  

○ Bellabeat メンバーシップ: Bellabeat は、ユーザー向けにサブスクリプション型のメンバーシッププログラムも提供しています。
メンバーになると、ユーザーは自分のライフスタイルや目標に基づき、栄養や活動量、睡眠や健康、美容、マインドフルネスなど、パーソナライズされたガイダンスに 24 時間アクセスできるようになります。  

## 会社概要  
ウルシュカ・シュルシェンとサンド・ムールは、健康に焦点を当てたスマート製品を製造するテクノロジー企業、Bellabeat を設立しました。

シュルシェンはアーティストとしての経歴を生かし、世界中の女性向けに情報を提供しインスピレーションを与える美しいデザインの製品を開発しました。活動量や睡眠、ストレス、生殖機能などに関するデータを収集することで Bellabeat は女性たちが自身の健康や習慣に関する知識を身につけられるようにしています。2013 年の設立以来、Bellabeat は急速に成長し、女性のためのテクノロジー主導型ウェルネス企業として頭角を表すようになりました。  

2016 年までに Bellabeat は世界中にオフィスを開設し、複数の製品を発売しました。Bellabeat の製品はウェブサイト上の独自の e コマースチャネルに加えて、オンライン小売業者を通じて購入できます。同社ではラジオや街頭看板、印刷物やテレビといった従来の広告媒体に投資してきましたが、デジタル・マーケティングにおおいに注力しています。  


Bellabeat は、Google 検索に年間を通して投資し、Facebookと Instagram のページを積極的に運用し、Twitter でも常に消費者に働きかけています。さらに、Youtube の動画広告や Google ディスプレイ ネットワークのディスプレイ広告を配信して、主力マーケティング キャンペーンを後押ししています。  

シュルシェンは Bellabeat が保有する消費者データを分析すれば、さらなる成長の機会が見えてくると確信しています。彼女はマーケティング アナリティクス チームに対し、Bellabeat 製品に焦点を当て、人々がスマートデバイスをどのように使用しているかに関するインサイトを得るために、スマートデバイスの使用状況のデータを分析するよう依頼してきました。そしてその情報を活用し、その傾向が Bellabeat のマーケティング戦略にどう反映できるかを、ハイレベルな提言としてまとめてほしいとしています。  

# 2. 問いかけ 
1. スマートデバイスの使用傾向はどのようなものでしょうか？  

2. これらの傾向は、Bellabeat のユーザーにはどう当てはまるでしょうか？  

3. これらの傾向は、Bellabeat のマーケティング戦略にどのような影響を与えるでしょうか？　　

## 準備する

シュルシェンはスマートデバイスのユーザーの日常的な習慣を調査した公開データを使用することを推奨しています。彼女は、具体的なデータセットを提示してきました。

● [Fitiit Fitness Tracker Data](https://www.kaggle.com/datasets/arashnic/fitbit)(CC0: パブリックドメイン、データセットは Mobius より公開されています。): この Kaggle のデータセットには、30 人の Fitbit ユーザーの個人的なフィットネストラッカーに関するデータが含まれています。ここでは 30 人のFitbitユーザーの同意のもとに提出された、活動量や心拍数、睡眠モニタリングなどの分単位での出力を含む個人トラッカーデータが閲覧できます。一日の活動量や歩数、心拍数などの情報が含まれており、ユーザーの習慣を探るために活用できます。  

データセットには18のcsvファイルがありました。以下はその詳細です。

#### 18のトラッカーデータ

・dailyActivity_merged.csv  

・dailyCalories_merged.csv

・dailyIntensities_merged.csv

・dailySteps_merged.csv

・heartrate_seconds_merged.csv

・hourlyCalories_merged.csv

・hourlyIntensities_merged.csv

・hourlySteps_merged.csv

・minuteCaloriesNarrow_merged.csv

・minuteCaloriesWide_merged.csv

・minuteIntensitiesNarrow_merged.csv

・minuteIntensitiesWide_merged.csv

・minuteMETsNarrow_merged.csv

・minuteSleep_merged.csv

・minuteStepsNarrow_merged.csv

・minuteStepsWide_merged.csv

・sleepDay_merged.csv

・weightLogInfo_merged.c

# 3. プロセス

1.初めに、分析に用いるパッケージをインストールします。  

```{r install}
library(tidyverse)
library(ggplot2)
library(janitor)

install.packages("tidyverse")
install.packages("ggplot2")
install.packages("janitor")
```

```{r read}
#read関数でデータをインポート
daily_activity <- read.csv("dailyActivity_merged.csv") 
daily_sleep <- read.csv("sleepDay_merged.csv") 
weight_loginfo <- read.csv("weightLogInfo_merged.csv")
```

2.str()関数を用いてリストに含まれるデータ要素とその型を表示し、データ構造を調べる。

```{r str}
# str()を用いて各データの要素を調べる  
str(daily_activity)  
```
![スクリーンショット 2024-02-09 090821.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/7ed5f717-2d17-61bc-2fbb-b302425b4df7.png)
```
str(daily_sleep) 
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/facc5ac4-f797-292c-2f56-61586cb390fc.png)
```
str(weight_loginfo)
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/410eadb9-d70f-b470-ea44-0daf4238e5b1.png)


3.重複の確認を行います。

```{r duplicated1}
sum(duplicated(daily_activity))
sum(duplicated(daily_sleep))
sum(duplicated(weight_loginfo))
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/e59edf8d-42c4-20a0-23eb-ba77a33cbc2e.png)
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/6a8267a5-92ca-cd43-b2a5-57ffaebe9bcb.png)
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/5d722e88-6d88-d723-d04c-7793eedc98bb.png)

4.データフレーム[daily_sleep]に重複が確認されたため、削除します。

```{r duplicated2}
daily_sleep <- unique(daily_sleep)
sum(duplicated(daily_sleep))
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/35a8b9f5-b3f7-8cd5-58bf-11d17e4d4bd4.png)

5.`str()`で出力したデータを確認すると、いずれのファイルも日付が文字列データになっています。  
これに対処するためまず、`clean_names()`関数を用いてデータセットの扱いや分析をしやすくします。
```{r cleam_data}
'library(janitor)'

'daily_activity <- clean_names(daily_activity)'  
'daily_sleep <-clean_names(daily_sleep)'       
'weight_loginfo <-clean_names(weight_loginfo)'  
```
6. 続いて`as.Data()`関数を用いて日付形式に変換します。  

```{r as.Data}  
#as.Data()関数を用いて日付形式に変換。  
daily_activity$ActivityDate <- as.Date(daily_activity$ActivityDate, '%m/%d/%Y')  
daily_sleep$SleepDay <- as.Date(daily_sleep$SleepDay, '%m/%d/%Y') 
weight_loginfo$Date <- as.Date(weight_loginfo$Date,'%m/%d/%Y')
```

7.被験者数の確認を行います。

```{r length}
length(unique(daily_activity$Id))
length(unique(daily_sleep$Id))
length(unique(weight_loginfo$Id))
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/1b5a883b-bbc7-80de-9ed4-3fa593d2b33c.png)
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/59b04c72-f02b-db6d-779f-c610d35f6ff1.png)
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/da4de237-878e-b8f6-a0f3-f3abfade723b.png)

+ daily_sleepの被験者数の内、9名のユーザーが睡眠情報を提供していないことが確認できます。    
+ weight_loginfoの被験者の内、25名のユーザーが体重記録を提供していないことが確認できます。
 
# 4. 分析と共有  

#### 4-1. `summary()'関数を用いて平均の歩数、着席時間、活動時間、睡眠時間、カロリーを求めます。 

 
```{r summary}
#summary関数で平均の値を求める

summary(daily_activity$TotalSteps)  
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/9590ef01-5bf3-c6fd-acc3-970a22d2bccc.png)
```
summary(daily_activity$SedentaryMinutes)  
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/e6ff23a9-4f65-8074-29ce-301b2bcc219d.png)
```
summary(daily_activity$VeryActiveMinutes)  
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/3b77abac-391c-7068-78b1-cf9a4768ba8b.png)
```
summary(daily_activity$Calories)  
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/c305204d-23d8-d231-80d8-a6c7ad1bc569.png)
```
summary(daily_sleep$TotalMinutesAsleep)  
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/33f68a95-f3b5-1d4b-b90c-9df15da5eeef.png)
```
summary(weight_loginfo$WeightKg)
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/5576ffb0-a766-805e-274e-a05067a1e00b.png)

```{r}
library(knitr)

# データフレームを作成
df <- data.frame(
  category = c("歩数", "着席時間", "運動時間", "睡眠時間", "カロリー","体重"),
  result = c(7638, 991, 21, 7, 2300,72),
  Recommendation = c("10000", "420~600", "30", "7~9", "2500","61"),
  Achievement = c("不足", "超過" ,"不足", "適正", "適正","超過")
)
kable(df)

```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/c2dc8e37-9e06-01fe-5ed4-334cec9a45b1.png)

:::note info
注釈
 categoryの文頭には、平均がいずれもつきます。
:::


+ 歩数や運動時間が不足している一方で、座っている時間が過剰であり、体重も推奨値よりも重いため、多くの人が運動不足に陥っていると考えます。  

### 4-2. スマートデバイスの使用傾向を探ります。  


```{r week}

# 曜日の順序を指定
days_order <- c( "日","月", "火", "水", "木", "金", "土")

# week列を作成
daily_activity$week <- factor(format(daily_activity$ActivityDate, "%a"), levels = days_order)

#曜日ごとの傾向を調べる
ggplot(daily_activity, aes(x = week, y = VeryActiveMinutes)) +
  geom_col(fill = 'blue') +
  labs(x = 'week', y = 'Very Active Minutes', title = '曜日ごとの運動時間')

```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/9963fb9e-b0bf-a26b-ef77-094ba25b5419.png)

+ 日を追うごとに体力やモチベーションが減少している可能性があります。

+ 月曜日は一週間の仕事始めの人が多く、億劫な気持ちになっている可能性があります。  

### 4-3. これらの傾向は、Bellbeatのユーザーにはどう当てはまるでしょうか。  

  
### 1.激しい運動と消費カロリーの関係を調べます。

```{r Active Minutes:Calories}

#激しい運動と消費カロリーの関係を調べる
library(ggplot2)

ggplot(daily_activity,aes(x = VeryActiveMinutes,y = Calories))+
  geom_point(col = 'red')+
  geom_smooth()+
  labs(x = 'Active Minutes', y = 'to burn calories', title = '激しい運動と消費カロリーの関係')
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/0cfe5df7-56a1-1d58-7993-5a6efa3d30a4.png)

+ 激しい運動と消費カロリーには正の相関関係があると言えます。　　


### 2.座っている時間とカロリー消費の関係を調べます。

```{r SedentaryMinutes:Calories}
#着席時間とカロリー消費の関係を調べる
ggplot(daily_activity, aes(x = SedentaryMinutes, y = Calories)) +
  geom_point(col = 'green') +
  geom_smooth() +
  labs(x = 'Sedentary Minutes', y = 'Calories burned', title = '座っている時間と消費カロリーの関係')
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/bbf795a3-64b3-500f-fb80-fae8d269ba78.png)

+ 座っている時間と消費カロリーは約8~17時間までは正の相関関係があります。
+ 17時間以降は負の相関になっています。

### 3.睡眠時間と各活動時間の関係を調べます。
```{r activeminute:asleep}
#睡眠時間と各活動時間の関係を調べる

#データフレーム結合前にカラムを統一
daily_activity <- daily_activity %>% 
  rename(date = ActivityDate)

daily_sleep <- daily_sleep %>% 
  rename(date = SleepDay)

# daily_activityとdaily_sleepを結合
activity_sleep <- merge(daily_activity,daily_sleep, by=c('Id','date'))

#激しい運動と睡眠時間と関係を調べる
ggplot(data = activity_sleep, aes(x = VeryActiveMinutes, y = TotalMinutesAsleep)) +
  geom_point(col = 'orange') +
  geom_smooth()+
  labs(x = 'Very Active Minutes', y = 'Total Minutes Asleep', title = '激しい運動と睡眠時間の関係')
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/af9dbd68-5f7a-02f8-c7be-8cb6643018ea.png)
```
#やや激しい運動と睡眠時間の関係を調べる
ggplot(data = activity_sleep, aes(x = FairlyActiveMinutes, y = TotalMinutesAsleep)) +
  geom_point(col = 'cyan') +
  geom_smooth()+
  labs(x = 'Fairly Active Minutes', y = 'Total Minutes Asleep', title = 'やや激しい運動と睡眠時間の関係')
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/1e188d10-15c0-2595-0c24-c3b203ba5779.png)

```
#軽い運動と睡眠時間の関係を調べる
ggplot(data = activity_sleep, aes(x = LightlyActiveMinutes, y = TotalMinutesAsleep)) +
  geom_point(col = 'purple') +
  geom_smooth()+
  labs(x = 'Lightl Active Minutes', y = 'Total Minutes Asleep', title = '軽い運動と睡眠時間の関係')  
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/06a98ced-9e4c-9f37-8666-be38dfcdd017.png)

+ 激しい運動を50分以上    行うと、睡眠時間が長くなる傾向にある。 
+ やや激しい運動を50分以上行うと、睡眠時間が短くなる傾向にある。   
+ 軽い運動を行っても時間に左右されず、比較的安定した睡眠時間になる。    

### 4.体重と各運動を行う人の関係を調べます。
```{r weight : Very Active Minutes}
str(weight_loginfo)

#データフレーム結合前にカラムを統一
weight_loginfo <- weight_loginfo %>% 
  rename(date = Date)

#daily_activityとweight_loginfoを結合
activity_weight <- merge(daily_activity,weight_loginfo,by = c('Id','date'))

#体重と激しい運動の関係を調べる
ggplot(activity_weight,aes(x = VeryActiveMinutes,y = WeightKg))+
  geom_point(col = 'yellow')+
  geom_smooth()+
  labs(x = 'Very Active Minutes',y = 'Weight Kg', title = '体重と激しい運動を行う人の関係')
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/34746c8c-72a6-dbee-2b3e-c676a468d68b.png)

```{r weight : Light Minutes }
#体重と軽い運動の関係を調べる。
ggplot(activity_weight,aes(x = LightlyActiveMinutes,y = WeightKg))+
  geom_point(col = 'brown')+
  geom_smooth()+
  labs(x = 'Lightly Active Minutes',y = 'Weight Kg', title = '体重と軽い運動を行う人の関係')
```
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/8f4ccdd7-1f55-37fc-6a70-11203e39da69.png)


+ 上記二つのグラフから体重約 60kg と 85kg のユーザーが最もアクティブな傾向にあることが確認できます。  

+ 平均体重は72kgですが、60kgと85kg付近の体重に位置するユーザーがBellabeatには多いようです。  
### 5.体重と睡眠時間の関係を調べます。

```{r sleep_weight}
 #daily_sleepとweight_loginfoを結合
sleep_weight <- merge(daily_sleep,weight_loginfo,by = c('Id','date'))

#体重と睡眠時間の関係を調べる
ggplot(sleep_weight,aes(x = TotalMinutesAsleep ,y = WeightKg))+
  geom_point(col = 'blue')+
  geom_smooth()+
  labs(x = 'Total Minutes Asleep',y = 'Weight Kg', title = '体重と睡眠時間の関係')
```  
![image.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/3682221/be3d083b-9cf0-6b0b-5830-2c08550bbefc.png)

+ 体重と睡眠時間に相関関係は見られませんでした。  
+ 60kg付近の人以外が情報提供を行っていないため、正確性に欠ける結果となりました。

# 5. まとめ

## 1. スマートデバイスの使用傾向はどのようなものでしょうか？
 
+ 一週間の前半に使われる傾向があり、後半にかけて減少しています。

+ 加えて、一週間の前半に位置する月曜日の利用率が例外で少ないことが見受けられます。　　  
   
## 2. これらの傾向は、Bellbeatのユーザーにはどう当てはまるでしょうか？  

+ 日を追うごとに体力やモチベーションが減少しています。  

+ 月曜日は一週間の仕事始めの人が多く、億劫な気持ちになっている可能性があります。  

+ 激しい運動と消費カロリーには正の相関関係があると言えます。  

+ 座っている時間と消費カロリーには8~17時間までは正の相関にあるが、一定の時間を超えると負の相関になります。   

+ 激しい運動を50分以上行うと、睡眠時間が長くなる傾向があるが、やや激しい運動を50分以上行うと睡眠時間が短くなる傾向があります。     

+ 軽い運動は時間に左右されず、睡眠時間が比較的安定している傾向がある。    

+ 体重が約60kgと85kgのユーザーがBellabeatで最もアクティブである傾向があり、平均体重が72kgであるにも関わらず、60kgと85kg付近の体重のユーザーが多いことが示されています 。

+ 体重と睡眠時間の相関関係は見られず、60kg付近の人以外が情報提供を行っていないため、結果の正確性には疑問があります。

## 3. これらの傾向は、Bellabeat のマーケティング戦略にどのような影響を与えるでしょうか？  

+ ジムとの業務提携・コラボを行い、歩数や運動時間の不足を補う。

+ 健康食品とのコラボ商品を発売し、ダイエットを働きかける。

+ 座っている時間が推奨よりも大幅に超過しているため、5時間を超えた段階で通知を発する機能を搭載して、座りすぎを抑制する。

+ 利用者の年齢データを収集し、それを活用して特定のアクティブ層を中心に広告を展開することで、費用対効果を向上させる。  

+ ユーザーの1日の座っている時間/歩いた歩数/活動時間と、それら各項目で推奨されている値をアプリや製品のトップ画面等に表示し簡単に可視化できるシステムの構築。  

(例)
$$
\frac{900}{600}
$$

## 6. 振り返りと展望
#### 振り返り
+ geom_point以外にもビジュアライゼーションに適した関数を用いることができたかもしれない。 
+ もっと他の視点からのアプローチを取り入れたい。  
+ 5秒で理解できるグラフ作りにこだわった。 
+ 誰が見てもわかりやすい流れ作り、プロセスの構成ができたと思う。 
+ ビジュアライゼーションやデータ結合に関するエラーが頻繁に発生し、調べた通りに実行しても解決できないなど苦労したが、最終的に満足のいくものを作成できてとにかく嬉しい。  
    


#### 展望
+ 様々な関数を扱えるようにスキルを向上させたい。  
+ 統計学の知識を学び、データ分析に活かしたい。  
+ より複雑なデータに対する分析に挑戦していきたい。 
+ 学習したことを今後の人生に役立てたい。