Message Boards Message Boards

GROUPS:

[WSS22] Epidemiological factors of malaria: case study of Mubarakpur

Posted 4 months ago
1257 Views
|
4 Replies
|
9 Total Likes
|

enter image description here

POSTED BY: Naseem Nawaz
4 Replies

enter image description here -- you have earned Featured Contributor Badge enter image description here Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: Moderation Team

I am too much glad to see this Featured Contributor Badge e. Thanks a lot Wolfram Team. This was my first experience with wolfram Team. That's very great team. I learned many things about Wolfram Language during these three weeks. I was a remote Student.

POSTED BY: Naseem Nawaz

Yes, the rainfall plays an important role in malaria epidemiology.

freq := MapThread[{#1, #2, Splice[#3]} &, {(*Year*){"2011", "2012", 
    "2013", "2014"}, {543, 682, 376, 
    600}, {{26, 26, 21, 24, 24, 34, 45, 84, 103, 92, 36, 28}, {8, 65, 
     89, 74, 89, 68, 32, 43, 67, 74, 53, 20}, {9, 12, 37, 27, 48, 23, 
     45, 27, 37, 35, 58, 18}, {30, 36, 51, 93, 111, 30, 30, 35, 60, 
     36, 59, 29}}}]

patientfreq := (freq // 
    Map[ReplacePart[2 -> Nothing]/*(Apply[#1 -> {##2} &])]) // 
  Apply[Association]

patientsPerMonth := 
 KeyValueMap[
  Thread[{Map[DateObject/*(#["MonthName"] &)]@
      Thread[{ToExpression[#1], Range[12]}], #2}] &, patientfreq]

DateListPlot[patientsPerMonth, 
 PlotLegends -> {"2011", "2012", "2013", "2014"}, 
 PlotMarkers -> {{\[FilledDiamond], 10}, {\[FilledSquare], 
    10}, {\[FilledUpTriangle], 10}, {\[MathematicaIcon], 10}}, 
 PlotLabel -> 
  Row[{Style["Figure 5.2:", Bold], 
    " Annual Frequency of Suspected Malaria Cases in the Study \
Area"}], Frame -> {{True, False}, {True, False}}, 
 FrameLabel -> {"", "Number of Patients"}, Joined -> True, 
 ImageSize -> Large]

enter image description here

Table[
 BarChart[
  Labeled[#, #] & /@ 
   Table[patientsPerMonth[[All, index]][[All, 2]][[n]], {n, 4}],
  PlotLabel -> patientsPerMonth[[All, index]][[All, 1]][[1]], 
  ChartStyle -> "DarkRainbow", 
  ChartLegends -> {"2011", "2012", "2013", "2014"}, 
  FrameLabel -> {"Same-Month Frequency
of Suspected Malaria Cases
in the Study Area"}, Frame -> True]
 , {index, 1, 12}]

enter image description here

POSTED BY: Dean Gladish

@Dean Gladesh, Thanks a lot to draw such amazing bar graphs on given data of my project.

POSTED BY: Naseem Nawaz
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract